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»as  described  in  the  report  entitled  "Documentation  of  the  Extended 
Interactive  Seismic  Processing  System  (ISPSE)"  (Shaub,  et  al.  , 1977). 

This  report  discusses  system  features,  supplemental  to  that  documentation, 
to  ensure  optimal  util izat^n  of  ISPSE  for  seismic  problem  solving^^ 
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which  the  user  may  define  standard  seismic  processing  tasks  on-line; 
and  an  interpretive  high  level  Interactive  Seismic  Programming  Language 
(ISPL)  with  which  a user  may  define  functions  that  access,  perform  computa- 
tion upon,  and  display  seismic  data  in  tabular  and  graphic  form  for  evaluation 
and  analysis. 
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ABSTRACT 


The  primary  intention  of  this  report  is  to  provide  a compre- 
hensive user  manual  for  the  Extended  Interactive  Seismic  Processing  System 
(ISPSE).  ISPSE  supports  an  interactive  graphics  environment  on  the  PDP-15 
computer  located  at  the  Seismic  Data  Analysis  Center  (SDAC)  for  the  purpose 
of  analyzing  long-  and  short-period  seismic  waveforms.  In  addition  to  gen- 
eral signal  analysis  functions,  ISPSE  demonstrates  the  feasibility  of  utilizing 
interactive  graphics  for  short-period  event  discrimination  as  described  in 
the  report  entitled  "Documentation  of  the  Extended  Interactive  Seismic  Pro- 
cessing System  (ISPSE)"  (Shaub,  et  al. , 1977).  This  report  discusses  system 
features,  supplemental  to  that  documentation,  to  ensure  optimal  utilization 
of  ISPSE  for  seismic  problem  solving. 

These  features  include;  a programmable  mode  of  operation 
by  which  the  user  may  define  standard  seismic  processing  tasks  on-line; 
and  an  interpretive  high  level  Interactive  Seismic  Programming  Language 
(ISPL)  with  which  a user  may  define  functions  that  access,  perform  compu- 
tation upon,  and  display  seismic  data  in  tabular  and  graphic  form  for  eval- 
uation and  analysis. 
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SECTION  I 
INTRODUCTION 


The  primary  intention  of  this  report  is  to  provide  a compre- 
hensive user  manual  for  the  Extended  Interactive  Seismic  Processing  System 
(ISPSE).  ISPSE  supports  an  interactive  graphics  environment  on  the  PDP-I5 
computer  located  at  the  Seismic  Data  Analysis  Center  (SDAC)  for  the  purpose 
of  analyzing  long-  and  short-period  seismic  waveforms.  In  addition  to  gen- 
eral signal  analysis  functions,  ISPSE  demonstrates  the  feasibility  of  utilizing 
interactive  graphics  for  short-period  event  discrimination  as  described  in 
the  report  entitled  "Documentation  of  the  Extended  Interactive  Seismic  Pro- 
cessing System  (ISPSE)"  (Shaub,  et  al.  , 1977).  This  report  discusses  system 
features,  supplemental  to  that  documentation,  to  ensure  optimal  utilization 
of  ISPSE  for  seismic  problem  solving. 

The  main  objective  when  extending  the  Interactive  Seismic 
Processing  System  (ISPS)  to  the  ISPSE  is  to  develop  software  which  would 
provide  an  operationally  flexible,  reliable,  and  attractive  interactive  envir- 
onment for  accomplishing  standard  seismic  processing  tasks.  More  specif- 
ically, the  emphasis  is  to  create  a structure,  which  would  free  the  geophys- 
icist from  the  usual  burdens  of  computer  analysis  (e.  g.  , complex  coding, 
batch  compilation,  and  link  editing)  and  permit  him  to  concentrate  on  the 
solution  of  his  seismic  problems,  without  adopting  the  'hard-wired'  char- 
acteristics of  many  existing  analysis  packages. 

With  this  objective  in  mind,  ISPS  was  extended  to  support  two 
new  features,  namely: 

• A programmable  mode  of  operation  where  standard  seismic 

processing  tasks  may  be  defined  (on-line,  by  the  user)  as  a 
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sequence  of  functions  and  sub-functions  to  be  executed  within 
the  ISPSE  environment.  This  minimizes  decision  making  at 
task  execution  time  and  improves  reproducibility  of  results. 

• An  interpretive  high  level  Interactive  Seismic  Programming 

Language  (ISPL)  with  which  a user  may  define  his  own  functions. 
These  functions  access,  perform  computations  upon,  and  display 
data  in  tabular  and  graphic  form  for  evaluation  and  analysis. 

This  report  consists  of  six  sections  and  three  appendices. 

Section  II  presents  an  overview  of  ISPSE,  and  discusses  system  components 
and  the  philosophy  of  combining  these  components  to  provide  a seismic  pro- 
cessing environment. 

Section  III  offers  a detailed  description  of  the  ISPSE  command 
language.  Command  language  syntax  is  described  in  a notation  known  as 
Backus  Normal  Form  (BNF),  (Backus,  1959),  while  semantics  are  presented 
by  definition  and  example.  Also  system  capabilities  derived  from  the  command 
language  are  summarized  in  this  section. 

Section  IV  is  devoted  entirely  to  the  Interactive  Seismic  Pro- 
gramming Language  (ISPL).  It  begins  with  an  overview  introducing  the 
reader  to  the  operational  aspects  of  ISPL,  continues  with  a detailed  semantic 
description  of  the  language  including  valid  entries,  valid  statements,  constants, 
variables,  and  expressions,  and  concludes  with  a presentation  of  ISPL  syntax 
via  BNF  notation. 

Section  V discusses  the  ISPSE  programmable  feature  and  the 
construction  and  maintenance  of  standard  seismic  processing  tasks  via  the 
creation,  programming,  and  execution  of  named  procedures. 

Appendix  A concentrates  on  the  use  of  ISPSE  for  baseline  dis- 
crimination, accomplished  by  executing  the  programmed  procedure  named 
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ISPED  and  the  user  function  called  MDCRM.  Appendix  B provides  a summary 
of  ISPSE  error  messages  generated  by  the  command  language  and  ISPL. 
Finally,  Appendix  C is  an  index  of  key  terms  used  throughout  this  report  in 
describing  ISPSE. 

This  report  is  written  with  the  understanding  that  the  reader 
is  familiar  with  the  ISPSE  as  described  in  the  "Documentation  of  the  Ex- 
tended Interactive  Seismic  Processing  System  (ISPSE)"  (Shaub,  et  al.  , 1977). 
Therefore,  that  report  should  be  referred  to  for  all  user  documentation  not 
contained  herein. 


SECTION  n 


ISPSE  OVERVIEW 


SYSTEM  COMPONENTS 


The  Extended  Interactive  Seismic  Processing  System  (ISPSE) 
is  designed  for  the  PDP- 15/50  computer  located  at  SDAC.  The  computer 
provides  several  hardware  features  especially  important  to  ISPSE.  They 
are  detailed  in  Figure  II- 1.  Given  these  hardware  features,  together  with 
the  system  design  objectives  noted  in  the  Introduction,  ISPSE  is  implemented 
to  offer  several  important  components  which  may  be  summarized  as  follows: 


A graphics  console  environment 


Interactive  seismic  processing  modules 
system  functions 
- user  functions 


Interactive  languages 

- command  language 

- programming  language 


Figure  II- 2 describes  some  salient  features  provided  by  the 
graphics  console  environment.  This  environment  is  supported  by  the  graphics 
display  hardware  and  software  of  the  PDP-15/50  together  with  ISPSE  console 
support  routines. 


Under  ISPSE  seismic  data  are  analyzed  via  the  second  ISPSE 
component,  interactive  processing  modvles.  These  modules  are  of  two 
types:  system  functions  and  user  functions,  as  shown  in  Figure  II- 3,  hence 
the  words  function  and  module  will  be  used  interchangeably  throughout  this 
report.  System  functions  are  provided  for  the  geophysicist  and  feature 


A CPU  and  independent  Floating  Point  Processor 
32k  executive  memory 
32k  user  memory 

A card  reader  and  line  printer 

A system  control  teletype 

Two  7-track  tape  drives 

Two  9-track  tape  drives 

A ten  megaword  disk  drive 

A 256k  fixed  head  disk 

A graphics  display  processor 
CRT  console 
- input  only  keyboard 

A calcomp  plotter. 


FIGURE  n- 1 

PDP- 15/50  HARDWARE  FEATURES 


Immediate  CRT  display  of  entered  alphaniimeric  information 

- entry  via  console  keyboard 

- entry  on  a per  character  basis  with  editing  capability. 


Free  format  entry  of  numeric  data  with  error  checking 


CRT  display  of  system  messages 
error  diagnostics 
prompts  to  the  user 
processing  status 
system  parameters 
seismic  parameters. 


Complete  record  keeping  of  all  console  communications  on  the 
line  printer. 


Control  of  CRT  screen  scrolling  via  blue  pushbutton  #6 
light  on  prevents  scrolling  - light  off  permits  scrolling 


CRT  display  of  keyword  menus  within  seismic  processing 
modules 

serve  as  a processing  guide  to  the  user 

explain  analysis  options  selected  by  designated  push 

button.. 


CRT  display  of  seismic  waveforms  and  associated  graphic  data 
- point  selections  with  moving  cursor 

time  window  selection  with  moving  cursor. 


Calcomp  hard  copies  of  selected  CRT  displays 


FIGURE  U-2 


FEATURES  OF  THE  GRAPHICS  CONSOLE  ENVIRONMENT 


SYSTEM  FUNCTIONS  (Provided  by  ISPSE) 


- 

DPSCAN: 

Catalogues  and  displays  waveforms  from  disk 

- 

SELEV  : 

Selects  any  event,  station,  component,  and  time 

window  for  analysis 

- 

FILTER  ; 

Performs  general  signal  analysis  functions 

- 

GRVEL  ; 

Generates  long-period  dispersion  curves  and  funda- 
mental mode  source  spectrum 

- 

SPEED  : 

Performs  short-period  earthquake /explosion  dis- 
crimination. 

USER  FUNCTIONS  (Defined  on-line  by  geophysicist) 

Access  system  data  bases 
Perform  simple  computations  on  data 
Display  tables  of  seismic  parameters 
Display  data  and  x-y  plots  of  data 


Analysis 


Evaluation 


FIGURE  n-  3 

CAPABILITIES  OF  THE  INTERACTIVE  SEISMIC  PROCESSING  MODULES 
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advanced  signal  analysis  software  for  event  detection,  parameter  extraction, 
and  discrimination.  (Ringdal,  et  al.  , 1971  ; Shaub,  et  al. , 1977)  During  ex- 
ecution of  a system  function,  processing  options  may  be  selected  interactively 
from  displayed  key  word  menus.  Figure  II-4  illustrates  information  flow  for 
noted  system  functions.  User  functions,  on  the  other  hand,  are  defined  on- 
line via  an  interpretive  high  level  Interactive  Seismic  Programming  Language 
(ISPL).  That  is,  a user  function  is  a named  sequence  of  ISPL  statements 
vdiich,  having  been  accepted  and  saved  by  ISPSE,  may  be  executed  in  the 
same  manner  as  a system  function.  Hence,  the  addition  of  user  function 
capability  to  the  ISPSE  environment  enables  the  system  to  offer  a degree  of 
flexibility  uncommon  to  most  seismic  analysis  packages. 

The  third  ISPSE  component,  interactive  languages,  permit  the 
geophysicist  to  control  the  definition  and  execution  of  seismic  processing 
modules  within  the  console  environment. 

As  noted  above,  ISPL  permits  the  definition  of  user  functions. 
ISPL  statements  may  be  entered  on  a line-by-line  (interactive  editing)  basis 
with  immediate  syntax  error  diagnostics  provided.  Moreover,  ISPL  features 
all  arithmetic  and  logical  operators  required  for  formula  translation,  and 
several  high-level  numerical  and  I/O  operators  which  simplify  seismic  pro- 
gramming tasks.  These  topics  will  be  discussed  in  detail  in  Section  IV. 

Utilizing  the  ISPSE  command  language,  processing  modules 
may  be  executed  either  individually  or  in  procedural  mode.  A procedure  is 
a named  sequence  of  modules  to  be  executed  with  "INTERUP"  's  inserted 
between  modules  in  the  sequence  for  branching  purposes.  Procedures  may 
be  programmed  to  accomplish  standard  seismic  processing  tasks  and  stored 
for  future  reference.  The  command  language  provides  all  the  facilities  for 
maintaining  procedures  and  will  be  discussed  in  detail  in  Section  HI. 
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B. 


MULTITASKING  ENVIRONMENT 


ISPSE  is  physically  structured  as  a set  of  System  Tasks  which 
are  controlled  by  a System  Monitor.  Conimxinication  between  System  Tasks 
is  accomplished  via  a System  Communication  Block  as  shown  in  Figure  11-5. 

The  physical  program  structures  of  ISPSE  are: 

• System  Monitor  - a permanently  active  task  that  executes 
concurrently  with  each  System  Task.  It  switches  system 
operation  between  tasks  as  required  to  satisfy  ISPSE  commands 
and  it  also  monitors  the  status  of  each  System  Task. 

• System  Communication  Block  - an  area  of  memory  into 
which  data  are  stored  and  retrieved  for  System  Task  inter- 
communication. 

• System  Tasks  - a subdivision  of  ISPSE  which  performs  command 
processing  and  processing  modules. 

A major  advantage  to  this  configuration  is  the  automatic  re- 
coverability of  ISPSE  after  a system  error,  which  otherwise  would  be  fatal. 

The  actual  physical  boundaries  of  each  System  Task  and  the  execution  of  the 
System  Monitor  is  transparent  to  the  analyst  in  that  ISPSE  appears  to  operate 
according  to  the  logical  organization  as  described  below. 

Figure  II- 6 illustrates  the  logical  configuration  of  ISPSE  whose 
program  structures  are: 

• General  Supervisor  - which  initializes  the  ISPSE  data  structures, 
and  maintains  control  of  the  Command  Supervisor  and  Interpreter 
Supervisor  for  deciphering  and  executing  ISPSE  commands. 

• Command  Supervisor  - prompts  the  analyst  to  enter  a com- 
mand and  then  decodes  it  after  it  has  been  entered. 
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• Interpreter  Supervisor  - request  the  appropriate  Command 
Processor  or  Processing  Module  to  satisfy  a command  or 
procedure  step  as  determined  by  the  instruction  code  output 
from  the  Command  Supervisor. 

• Console  Support  Routines  - facilitates  construction  of  CRT 
graphic  displays,  supplies  the  software  to  access  the  seismic 
data  base,  and  maintains  a hardcopy  record  of  the  entire 
ISPSE  terminal  session. 

• Conrunand  Processors  - provides  the  capability  to  the  analyst 
for  definition,  maintenance,  and  execution  of  system  functions, 
user  functions,  and  procedures. 

• Processing  Modules  - performs  high  level  seismic  algorithms 
according  to  processing  options  and  parameters  that  are  se- 
lected and  entered  by  the  analyst. 

In  addition  ISPSE  allows  concurrent  Calcomp  plotting  of  files 
generated  by  previous  ISPSE  terminal  sessions.  The  command  sequence 
required  to  execute  ISPSE  is  shown  in  Figure  II-7.  These  commands  are 
entered  at  the  teletype. 
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SECTION  m 

ISPSE  COMMAND  LANGUAGE 


The  ISPSE  command  language  is  described  in  detail  in  this 
section.  As  each  command  is  discussed,  the  actions  of  the  Interpreter 
Supervisor  are  described.  The  interaction  of  commands  affecting  user 
functions  and  their  impUca.tions  on  procedures  are  presented  along  with 
several  automatic  protection  features.  Also,  examples  of  the  commands 
are  provided. 

The  ISPSE  Command  Supervisor  allows  the  user  to  enter 
either  external  or  internal  commands.  The  two  types  of  commands  are 
defined  as  follows: 

• External  command  - an  entry  made  when  prompted  by  the 
four  dots  ....  which  initiates  system  function  execution  as 
well  as  procedure  and  user  function  creation,  maintenance, 
and  execution. 

• Internal  command  - an  entry  made  when  prompted  by  a 
sequence  number,  e.  g.  , 15.  0,  during  the  creation  and  editing 
of  procedures. 
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A.  FUNCTIONAL  DESCRIPTION  OF  THE  ISPSE  COMMAND  LANGUAGE 

Each  of  the  legal  ISPSE  commands  is  listed  below,  with  a 
brief  explanation  of  each  command's  function. 

• .HELP  - displays  a brief  explanation  of  any  command 

or  system  function. 
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.CREATE 


- enters  a new  procedure  into  the  ISPSE  system 
directory. 

.EDIT  - permits  the  user  to  edit  an  existing  procedure. 

.PROCS  - displays  a list  of  procedure  names. 

.COMPILE  - accesses  a user  function  for  creation,  editing, 
or  deletion. 

.UFUNC  - displays  a list  of  user  function  names. 

.LIST  - lists  the  source  lines  of  a procedure  or  user 

function,  or  the  program  matrices  associated 
with  a programmed  procedure. 

.DELETE  - removes  a procedure  or  user  function  from  the 
ISPSE  system  directory. 

PERFORM-  initiates  the  execution  of  a system  function,  pro- 
cedure, or  user  function;  Inserts  a system  function, 
user  function  or  an  INTERUP  in  a procedure;  or 
terminates  an  ISPSE  terminal  session. 


■ MODE  - sets  the  mode  of  the  command  supervisor  or 
displays  the  current  mode. 


B.  SYSTEM  CAPABILITIES 
1.  Operational  Modes 

ISPSE  can  be  used  in  any  one  of  three  operational  modes, 

namely: 

NORM  - normal  mode 

PRGM  - program  mode 

EXEC  - execute  mode 
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Normal  mode  is  used  whenever  the  analyst  w-shes  to  individually 
execute  system  functions,  user  functions,  or  procedures.  User  functions  and 
procedures  are  also  maintained  in  this  mode.  ISPSE  is  in  NORM  mode  when 
a seismic  processing  session  is  initiated  by  requesting  ISPSL  from  the  tele- 
type (Section  II).  All  legal  commands  are  valid  in  NORM  mode. 

A set  of  processing  options  selected  from  the  keyword  menus, 
during  the  execution  of  a procedure  may  be  programmed  into  a procedure. 
ISPSE  must  be  set  to  program  mode  in  order  to  program  a procedure.  Pro- 
grammed procedures  are  discussed  in  detail  in  Section  V.  The  execution  of 
a programmed  procedure  is  accomplished  with  ISPSE  set  to  execute  mode. 

When  ISPSE  is  in  PRGM  or  EXEC  mode,  only  the  commands  MODE,  and 
. PERFORM  in  conjunction  with  a procedure  name,  are  valid.  All  other 
commands  cause  an  error  measage  to  be  displayed  on  the  video  screen.  See 
Appendix  B for  a complete  list  of  error  messages. 

2.  User  Functions 

Several  ISPSE  commands  are  provided  to  define  and  maintain 
user  functions.  They  are: 

• COMPILE 

• UFUNC 

• LIST 

• DELETE. 

These  commands  may  only  be  used  in  NORM  mode.  Two  files  are  associated 
with  each  user  function.  The  first  file  contains  the  source  lines  entered  when 
the  Interactive  Seismic  Programming  Language  (ISPL)  command  processor 
is  executed.  The  second  file  contains  the  executable  code  and  is  only  created 
if  a user  function  is  successfully  compiled.  ISPL  is  discussed  in  detail  in 
Section  IV. 
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Th«  . COMPILE  command  directs  the  Interpreter  Supervisor  to 
invoke  the  ISPL  command  processor.  A unique  name  with  respect  to  procedures 
or  system  functions  must  be  specified  or  an  error  is  displayed  and  the  command 
is  ignored.  User  functions  are  defined,  edited,  and  deleted  via  this  command. 

If  the  user  function  does  not  already  exist,  then  the  name  is  entered  into  the  sys- 
tem directory.  Otherwise  the  source  file  is  opened  and  positioned  at  the  end  of 
the  user  function.  The  sequence  number  displayed  is  the  next  available  line  in 
the  user  function.  The  executable  code  file,  if  any,  is  deleted  at  this  time,  i.  e. , 
the  user  function  is  decompiled.  Also,  see  Section  III-4  on  programmed  proce- 
dures. 

The  user  may  exit  from  the  ISPL  command  processor  in  three 
separate  ways.  First,  the  user  function  may  be  deleted.  Second,  only  the 
user  function's  source  file  is  saved.  And  third,  both  the  source  and  executable 
code  file  are  saved  if  the  user  function  is  successfully  compiled.  When  the  user 
f\inction  is  deleted,  any  procedure  that  references  a user  function  is  modified. 
This  is  discussed  later  in  this  section  vmder  programmed  procedures. 

A complete  list  of  all  user  function  names  in  the  system  dir- 
ectory is  obtained  by  the  . UFUNC  command.  An  asterisk  (')')  appearing  at 
the  end  of  any  name  indicates  that  the  user  function  is  compiled  and  therefore 
may  be  executed.  As  many  as  36  user  functions  may  exist  at  one  time. 

The  source  file  for  any  user  function  may  be  displayed  by 
using  the  . LIST  command  and  specifying  an  existing  user  function  name. 

Any  name  that  is  not  a user  function  (or  procedure)  name  causes  an  error 
and  the  command  is  ignored. 

As  stated  above,  a user  function  t.'<ay  be  deleted  using  the 
ISPL  command  processor.  Alternatively,  the  . DELETE  command  may  be 
used  to  delete  a user  function  from  the  system  directory.  As  before,  when 
the  user  function  to  be  deleted  is  referenced  by  a procedure,  certain  modifi- 
cations are  made  to  that  procedure.  This  is  discussed  under  programmed 
procedures. 
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Individual  Processing  Module  Execution 


In  NORM  mode,  system  fuiictions  or  user  functions  may  be 
executed  via  the  . PERFORM  command.  At  this  time,  system  functions  are 
limited  to  the  following  keywords: 

DPSCAN 

SELEV 

FILTER 

GRVEL 

SPEED 

which  have  been  described  by  Ringdal,  el  al.  , (1975)  and  Shaub,  et  al,  , (1977). 
User  functions  are  created  by  the  analyst  as  described  previously.  A success- 
fully compiled  user  function  m-y  be  executed  by  means  of  the  . PERFORM 
command.  If  the  user  function  is  not  compiled,  an  error  occurs  and  the  com- 
mand is  terminated. 

When  a system  function  is . PERFORM' ed,  the  Interpreter 
Supervisor  requests  the  appropriate  processing  module.  Within  each  system 
function  the  analyst  may  select  processing  options  from  keyword  menus.  Af- 
ter the  processing  module  ib  exited,  the  user  is  free  to  . PERFORM  another 
system  function  or  user  function.  When  the  analyst  . PERFORM' s a user 
function  the  Interpreter  Supervisor  initiates  the  processing  module  called 
the  Interactive  Seismic  Programming  Language  Interpreter  (ISPLI).  The  user 
may  execute  another  function  when  ISPLI  is  finished  executing  the  specified 
user  function.  If  the  analyst  attempts  to  . PERFORM  a name  which  is  not 
a system  function,  user  function,  or  procedure,  an  error  is  displayed  and  the 
command  is  ignored.  ISPL  is  discussed  in  Section  IV. 

4.  Procedures 

Procedures  consist  of  an  ordered  set  of  system  functions, 
user  functions,  and  INTERUP's.  These  internal  commands,  wh<<'h  are  divided 
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into  create  and  edit  commands,  are  illustrated  in  the  BNF  description  of  the 
ISPSE  command  language.  A procedure  may  contain  no  more  than  25  state- 
ments. The  ISPSE  commands  available  for  creation,  maintenance,  and  ex- 
ecution of  procedures  are: 

.CREATE 
. EDIT 
. PROCS 
. LIST 
. DELETE 
. PERFORM. 

Each  of  these  commands,  with  the  exception  of  . PERFORM,  may  only  be 
entered  in  NORM  mode.  The  use  of  . PERFORM  in  PGRM  and  EXEC  mode  is 
discussed  later. 

The  . CREATE  command  enters  a new  procedure  name  into 
the  system  directory.  The  specified  name  must  not  duplicate  any  system 
function,  user  function,  or  previously  defined  procedure  name.  At  this  time, 
the  Interpreter  Supervisor  invokes  the  . CREATE  command  processor  which 
prompts  the  user  with  the  sequence  number,  1.0.  The  command  processor 
only  allows  the  user  to  enter  create  commands.  As  each  command  is  placed 
in  the  procedure,  the  sequence  number  is  incremented  by  one.  No  editing 
of  procedures  can  occur  within  the  .CREATE  command  processor.  Any 
<aser  name>'s  specified  in  a create  conumand  must  be  a user  function  con- 
tained in  the  system  directory.  Therefore  a procedure  cannot  reference  a 
non-existent  user  function.  However,  the  user  function  need  not  be  compiled 
or  even  completely  defined.  Placement  of  INTERUP's  within  a procedure  is 
discussed  in  Section  V.  The  #S  command  is  used  to  exit  from  the  command 
processor  and  causes  the  procedure  to  be  saved  on  disk. 


All  procedure  editing  is  accomplished  via  the  . EDIT  command. 
Any  procedure  that  is  to  be  edited  must  already  exist  in  the  system  directory. 
Initially,  the  line  pointer  is  positioned  to  the  next  available  line,  i.  e. , the  end 
of  the  procedure. 

Any  edit  command  may  be  entered  during  an  edit.  The  edit 
commands  and  their  functions  are: 

#N  - resequence  the  procedure 

#P  - display  a line  or  the  entire  procedure 

#D  - delete  a line 

#I  - insert  a line 

#R  - replace  a line 

#S  - exit  from  the  editor. 

The  #N  edit  command  causes  the  procedure  to  be  resequenced  beginning  with 
one.  Each  subsequent  sequence  number  is  increased  by  1.0.  The  #P  command 
may  be  used  with  or  without  a sequence  number.  The  entire  procedure  is  dis- 
played when  #P  is  entered  by  itself.  An  edit  command  followed  by  a sequence 
number  causes  the  appropriate  action  to  occur  only  on  that  line.  A #P  <.8e- 
quence  number^  or  #D  <sequence  number>  command  is  ignored  if  the  specified 
line  doesn't  exist.  The  #I<sequence  number^  command  is  valid  only  if  the  se- 
quence number  refers  to  a new  line.  #R^  sequence  number  > replaces  an  ex- 
isting statement,  or  inserts  a line  if  the  sequence  number  is  not  present.  The 
#S  command  is  used  to  save  the  procedure  and  exit  from  the  edit  command 
processor.  The  procedure  is  automatically  re- sequenced  at  this  time. 

The  PROCS  external  command  is  similar  to  the  . UFUNC 
command  in  that  it  causes  a list  of  all  procedure  names  in  the  system  directory 
to  be  displayed.  The  maximum  number  of  procedures  that  are  allowed  at 
any  one  time  is  36.  A list  of  the  commands  in  a procedure  may  be  obtained 
with  the  . LIST  command.  If  there  is  no  procedure  (or  user  function)  in  the 
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system  directory  by  the  specified  name,  then  an  error  is  displayed  and  the 
command  is  ignored.  A procedure  name  is  removed  from  the  system  dir- 
ectory via  the  . DELETE  command.  Here  too.  if  the  name  is  not  in  the 
system  directory  as  either  a procedure  or  user  function  an  error  occurs. 

In  NORM  mode,  a procedure  may  be  executed  with  the  . PERFORM 
command.  If  a non-existent  procedure,  user  function,  or  system  function  name 
is  supplied,  the  command  does  nothing  but  display  an  error.  In  the  event  that 
an  uncompiled  user  function  request  is  encountered  during  the  execution  of  a 
procedure,  an  error  occurs  and  the  execution  of  the  procedure  Is  terminated. 

5.  Programmed  Procedures 

Procedures  may  be  programmed  to  perform  standard  seismic 
processing  tasks.  The  exact  criteria  for  a procedure  to  be  successfully  pro- 
grammed are  described  in  Section  V.  The  sequence  of  ISPSE  commands  re- 
quired to  program,  reprogram,  or  execute  a programmed  procedure  is  pre- 
sented in  this  section:  To  program  a procedure,  the  analyst  performs  the 
following  steps: 

• Create  a procedure  that  contains  the  .PERFORM  commands 
necessary  to  accomplish  the  desired  task.  These  statements 
include  system  functions,  user  functions,  and  INTERUP's. 

• Set  ISPSE  to  PRGM  mode. 

• . PERFORM  the  procedure. 

The  message,  "PROGRAM  OK  FOR  PROCEDURE  <name>  " is  displayed  and 
the  program  matrices  (Section  V)  are  saved  if  the  user  has  successfully  pro- 
grammed the  procedure.  Otherwise,  the  general  supervisor  prompts  the  analyst 
With  four  dots  and  no  message  is  displayed.  No  procedure  containing  references 
to  uncompiled  user  functions  can  be  successfully  programmed.  An  attempt  to 
program  such  a procedure  is  aborted  when  that  user  function  request  is 
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encountered.  Procedures  are  reprogranamed  by  performing  only  the  last 
two  steps  listed  above.  The  only  two  steps  necessary  to  execute  a programmed 
procedure  are: 


Set  ISPSE  to  EXEC  mode 


Programmed  procedures  may  also  be  executed  in  NORM  mode  without  dis 
turbing  the  associated  program  matrices. 


When  the  . PROCS  command  is  used,  an  asterisk  appearing  at 
the  end  of  a procedure  name  indicates  that  the  procedure  is  programmed. 
Furthermore,  if  an  asterisk  is  keyed  in  as  the  seventh  character  following 
the  . LIST  command,  then  the  procedure's  program  matrices  are  displayed. 
The  meaning  of  these  matrices  is  explained  in  Section  V.  If  the  procedure  is 
not  programmed,  the  command  is  ignored. 


There  are  several  automatic  protection  features  which  have 
been  designed  into  ISPSE.  These  features  are  provided  to  insure  that  pro- 
grammed procedure  matrices,  source  code,  and  all  user  functions  referenced 
within  that  procedure,  are  kept  consistent  regardless  of  any  editing,  deletion, 
creation,  or  compilation  that  is  performed.  For  example,  the  procedure's 
program  matrices  are  meaningless  if  they  reference  a deleted  user  function. 
These  protection  features  are: 


Program  matrices  are  not  replaced  unless  a procedure  is 
successfully  reprogrammed. 


Procedures  are  immediately  deprogrammed  when  they  are 
EDIT'ed. 


Procedures  are  deprogrammed  if  a user  function  which  it  re 
ferences  is  COMPILE'd  or  DELETE'd. 


• All  references  to  user  functions  in  any  procedure  are 

replaced  by  INTERUP'a  when  that  user  function  is  de- 
leted, 

A list  of  all  procedures  that  have  been  deprogrammed  is  displayed  when  the 
user  function  is  COMPILE'd.  The  message  "LINE  xx.x  IN  PROCEDURE 
name  HAS  BEEN  REPLACED  BY  AN  INTERUP"  is  displayed  for  every 
reference  to  a user  function  which  is  being  deleted. 


C.  BNF  DESCRIPTION  OF  COMMAND  LANGUAGE 


Up  to  now,  only  the  actions  of  each  command  have  been  de- 
scribed without  regard  to  the  exact  format.  A formal  definition  of  the  ISPSE 
command  language  in  BNF  follows. 


1.  BNF  for  External  Commands 

<command>;:  = . <sy8tem  keyword>| 

,<u8er  keywordXuser  name>| 
. PERFORM  <8y stem  function>| 

. MODE<state>| 


. HELP  . <keyword>| 

. HELP<function>j 
. LIST<user  name>* 

<system  keyword>;:  = MODE  I PROCS  I UFUNC  | HELP 

<user  keyword>;:  = CREATE  (EDIT  |DELETE|  LIST  )pERFORM|COMPILE 

<user  name>;  = <symbol>j<iser  name><symbol> 

<symbol>:;  = <letter>j<digit> 

<letter>  = a|b|  . . . |z 
<digit>  ::  = l|2|...  |9|o 

<sy8tem  function = DPSCAn|sELEv|fILTEr|gRVEl|sPEED 

<state>::  = NORM|EXEC|PRGM 

^eyword>::  = <8ystem  keyword>|<user  keyword> 

<function>!:  = <8ystem  function>|  LOGOFF  | INTERUP 


lU-lO 


2. 


BNF  for  Internal  Command* 


<create  command>::  = . PERFORM  <8y8tem  function>| 

. PERFORM  INTERUP]  . PERFORM 
<u8er  name>|  #S 

^edit  command^::  = <edit  keyword^  ^sequence  number^j 

<create  conrunand>| 

#P  |#N 

<edit  keyword>  = #p|  #d|  #l|  #R 

<8equence  number>  integer > | <integer>  . |<integer>.  < digit  > 

<'integer>  ;;  =<’digit>  | < integer  > <digit> 

D.  SEMANTICS  AND  EXAMPLES  OF  COMMAND  LANGUAGE 

The  eemantic*  of  the  ISPSE  conunand  language  are  deacribed 
by  four  item*,  which  are: 

• <u8er  names  >,  i.  e.  procedures  and  user  functions,  may 
contain  no  more  than  five  characters. 

• all  < keywords  > and  < functions  > may  be  abbreviated  by 
the  first  five  characters. 

• comments  may  be  appended  to  every  command  except  . HELP, 

. MODE,  and  #P  when  they  are  used  without  their  optional 
parameters. 

• commands  may  be  entered  in  free  format  with  two  exceptions. 
All  internal  commands  beginning  with  a # must  start  in 
column  one  and  the  asterisk  in  the  command,  . LIST  <user 
name  > ♦,  must  be  the  eleventh  character  after  the  dot. 

The  only  command  that  hasn't  been  discussed  thus  far  is  . HELP.  This 
command  allows  the  user  to  obtain  a brief  description  of  ISPSE,  any  command 
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in  the  ISPSE  language,  or  any  <function>.  If  .HELP  .HELP  is  keyed,  then 
all  information  pertinent  to  ISPSE  is  printed. 

Examples  of  all  the  commands  are  illustrated  in  Figure  III-l. 

An  ISPSE  session  is  presented  from  log  on  to  log  off  with  comments  on  each 
command.  The  first  command  is  entered  immediately  after  the  initiation  of 
ISPSE  according  to  the  directions  described  in  Section  n.  In  the  following 
explanation  of  each  command,  the  number  in  parentheses  refers  to  the 
statement  number  in  the  figure. 

(1)  .HELP  - displays  a brief  description  of  ISPSE  including  each 
command  and  its  format  plus  the  names  of  the  system  functions. 
No  conrunent  is  allowed  on  this  command  because  a parameter 
was  not  specified. 

(2)  . HELP  . MODE  - explains  the  . MODE  command  and  the  avail- 
able states.  A comment  has  been  added  to  the  statement. 

(3)  . MODE  - displays  the  initial  mode  of  ISPSE,  which  is  NORM. 

No  comment  is  allowed  and  it  shows  that  a command  doesn't 
have  to  start  in  any  specific  colunrm. 

(4)  . UFUNC  - displays  the  current  system  directory  of  user  func- 
tion names.  The  directory  is  empty. 

(5)  .COMPILE  FUNCl  - enters  the  new  user  function  name  into  the 
system  directory.  #Q  exits  from  ISPL  without  compiling. 
(Section  IV). 

(6)  . UFUN  - shows  that  the  new  user  function,  FUNCl,  is  added 
to  the  system  directory.  Command  is  abbreviated. 

(7)  . LIST  FUNCl  - displays  source  lines  of  user  function,  FUNCl. 

(8)  .COMP  FUNCl  - allows  user  to  edit,  delete,  or  compile  FUNCl. 
Short  form  of  command  Is  used. 
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(L)  * * * * • 


general  information  about  ispse 


THE  following  list  CONTAINS  THE  COMMANDS  AVAILABLE 
TO  THE  ISPSE  USER,  ONLY  THE  FIRST  FIVE  CHARACTERS 
OF  ANY  COMMANH  ARE  REQUIRED.  ALL  NAMES  CONSIST  OF 
ONE  TO  FIVE  CHARACTERS,  ARGUMENTS  IN  BRACKETS  ARE 
OPTIONAL.  FOR  FURTHER  INFORMATION  CONCERNING  EACH 
COMMAND  TYPE  ".HELP"  FOLLOWED  BY  THE  COMMAND,  FOR 
ALL  pertinent  information  TYPE  ".HELP  .HELP". 


• UPUN 
,PROC 

.CREATE  <NAME> 
.DELETE  <NAME> 
.EDIT  <NAME> 
.LIST  <NAME> 
.compile  <NAME> 
.MODE  C<STATE>I 
.PERFORM  LOGOF 
.PERFORM  <NAME> 
.PERFORM  INTERUP 


THE  FOLLOWING  LIST  CONTAINS  THE  NAMES  OF  THE  SYSTEM 
FUNCTIONS  AVAILABLE  TO  THE  ISPSE  USER,  FOR  MORE 
INFORMATION  CONCERNING  THE  SYSTEM  FUNCTION,  TYPE 
".HELP"  FOLLOWED  BY  THE  SYSTEM  FUNCTION  NAME  OR 
REFER  TO  "THE  DOCUMENTATION  OF  ISPS"  (RINCOAL, 
SHAUB,  BLACK,  1975), 


OPSCAN 

CRVEL 


SELEV  FILTER 
SPEED 


FIGURE  m- 1 
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(2) 


SYSTEM  STikRTS  IN  NORMAL  MODE 


.0..  .HELP  .MODE 

.mode  system  command 

THE  ".MODE"  COMMAND  MAY  BE  USED  IN  TNO  NAYS. 

THE  ANALYST  MAY  CHANGE  THE  MODE  BY  TYPING  IN 
".MODE",  followed  BY  THE  DESIRED  MODE  SETTING. 

IF  only  ".MODE"  IS  TYPEDf  THEN  THE  ISPSESYSTEM 
RESPONDS  WITH  THE  CURRENT  SETTING  OF  THE  MODE. 

THE  ACCEPTABLE  MODE  SETTINGS  AREl  "NORM", 

"PRGM",  and  "EXEC",  i^HICH  CORRESPOND  TO  NORMAL# 

PROGRAM,  AND  EXECUTE  MODE,  RESPECTIVELY, 

% 

(3)  ....  .MODE 

MODE  s NORM 

(4)  UFUNC  system  directory  OF  USER  FUNCTION  NAMES 

USER  FUNCTION  LIST 

(5)  compile  FUNCl  DEFINE  NEK  USER  FUNCTION 

COMPILE  ENACTED 

1,0  LABEL  ( LAB  ( 5 ) ) 


FIGURE  ni-1  I 
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TI-ISPSE  LOGGED  ON 

i': 

9/29/77  AT  P 

:22Z39 

, ENTER  COMMAND  OR  .HELP 

EV* 

Event  name 

ORIG  date/time 

LAT 

LON 

MR 

STATION  COOES 

1 

LX-KONOG-231 

72 

57/25.31.  9 

49 

135 

5,1 

110110111111111 

2 

EKAZ  797DrC2 

72 

395/ 

4.26,58 

49 

78 

5.7 

001100100031111 

3 

EKAZ  699Mrv2 

72 

337/ 

1,26,58 

49 

76 

6.2 

001110100011111 

a 

ANM*EKZ*P9!ie 

76 

161/ 

3,  2.48 

50 

81 

5.3 

Pllltllllllllll 

5 

MAI*rKZ*P958 

76 

161/ 

3,  2,48 

53 

81 

5.3 

1 1 1 1 1 1 0 1 n 1 1 1 1 1 

6 

NwA*EK2Sia62 

76 

166/ 

2 . 5b. 53 

49 

80 

6.2 

111111110111111 

7 

TAT*NC>I*A2«5 

76 

245/16.11.  a 

35 

121 

0.0 

111111111110111 

6 

ANM^EKZr,  J 262 

76 

186/ 

2,56.50 

49 

80 

6.2 

011111111111111 

<} 

P.Al*EKZ*l3b8 

76 

241/ 

2.56.43 

49 

81 

6.0 

llllllOllllllll 

IP 

GUM*EKZL12o2 

76 

186/ 

2.56.50 

49 

80 

6,2 

111110111111111 

11 

MAI*nKzSi:‘62 

76 

186/ 

2.56,50 

49 

80 

6,2 

111111011111111 

12 

MAI*EKZH»'62 

76 

186/ 

2.56.50 

49 

80 

6.2 

111111011111111 

13 

TAl*E^ZLn62 

76 

186/ 

2.56.50 

49 

80 

6.2 

111111111110111 

la 

ANM*E1Z* 1 5bd 

76 

241/ 

2,56.43 

49 

81 

6,0 

011111111111111 

15 

NaA^EKZL  1-162 

76 

186/ 

2.56,53 

49 

80 

6.2 

111111110111111 

16 

NM^EKA* 13hP 

76 

241/ 

2,56.43 

49 

61 

6.0 

011111111111111 

17 

MAl*bAH512«30 

76 

211/ 

5.  0.  0 

48 

47 

6.7 

llllllOllllllll 

18 

MAI*S^«L12a0 

76 

211/ 

5.  3.  3 

48 

47 

6,7 

iiiiiioiniiiii 

19 

ANM*SAHS12a0 

76 

211/ 

5.  0.  0 

48 

47 

6.7 

011111111111111 

20 

MAI*KTP* 1?17 

76 

213/15.46.46 

35 

80 

3.7 

111111011111111 

21 

*1AI*K  IB*  122.>! 

76 

214/ 

2.  5,29 

35 

79 

«.5 

111111011111111 

22 

NA1*NEG* 1221 

76 

214/10.32.21 

40 

119 

3.5 

llllllOllllllll 

25 

BAI*6UB*U24 

76 

214/18.  2,34 

27 

98 

4.2 

111111011111111 
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zt\  MAI*NEC*1227 

25  MaI*N0T*A215 

26  MAI*H0K*1228 

27  MAI*N0I*0215 

28  MaI*KSB*1234 

29  KAI*H0M*l23fa 

30  MAI*It>B*1021 

31  HAl*0UR*l2a3 

32  MAI*hOI*A2l8 

33  «Al*ICli*l2a2 

34  MAI*K0I*fl218 

35  MAI*^'0I*A219 

36  f'AI*N0I*a2l9 

37  HaI*nOI*a220 

38  MAI*MjI*a220 

39  MAl*NtC* 1247 

40  MAl*^EC*l249 

41  «AI*N0I*A222 

42  t‘'Al*K0I*B222 

43  MAI*^.0I*A223 

44  MA1*N0I*B2?3 

45  MA1*I^D*1259 

46  MA1*N0I*A224 

47  MAI*NOI*0224 

48  HA1>*N0I*A225 


76 

214/20.53,47 

39 

116 

4,4 

76 

215/  4,  7,  0 

46 

59 

0.0 

76 

215/  5.  8.57 

44 

144 

9,4 

76 

215/22.24.  0 

46 

59 

0.0 

76 

216/  7,50,26 

41 

77 

5.3 

76 

216/23, 37. 4B 

37 

138 

4.0 

76 

175/15.30,50 

23 

00 

4,8 

76 

217/  9.20.17 

27 

98 

4,0 

76 

210/  3.29,  e 

46 

59 

0,0 

76 

218/10.24.12 

28 

92 

4,4 

76 

210/22,12,  0 

46 

59 

0,0 

76 

219/  7.37,  0 

46 

59 

0,0 

76 

219/19,23,  0 

46 

59 

0.0 

76 

220/  4.25,  0 

46 

59 

0.0 

76 

220/19,  6,  0 

46 

59 

0,0 

76 

221/22.41.33 

40 

119 

4.6 

76 

221/23.36,  0 

40 

121 

3.6 

76 

222/12.30,  0 

46 

59 

0.0 

76 

222/21.20,  D 

46 

59 

0.0 

76 

223/  0,13,  0 

46 

59 

0,0 

76 

223/16.57.  0 

46 

59 

0.0 

76 

223/23.32,32 

30 

79 

3,2 

76 

224/  3,35,  0 

46 

59 

0.0 

76 

224/18,14.  0 

46 

59 

0,0 

76 

225/  0,45,  0 

46 

59 

0,0 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 

111111011111111 
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MAI*H1m*1265 

76 

225/23.26.53 

27 

97 

6.3 

nil 

iionnin  1 

SP! 

HAI*HQa* 1266 

76 

225/23.28,16 

93 

149 

5.0 

1111 

11011111111 

51 

HAI*f.0lAA226 

76 

226/  2.32,  0 

96 

59 

0.0 

nil 

11011111111 

52 

HAI*N0I*B^26 

76 

226/15. <19,  0 

96 

59 

0.0 

nil 

nennnn 

53 

f'AI*  Ua*l272 

76 

227/  1.23, UP 

28 

96 

4,4 

nil 

11011111111 

5a 

HAI*Af  G*1275 

76 

227/  6,22,5a 

32 

62 

3.7 

nil 

11011111111 

55 

MA1*G'  R*  1276 

76 

227/  8,90.35 

95 

90 

2.8 

nil 

11011111111 

56 

MAI*Nf;CM279 

76 

227/16,  2,38 

40 

121 

4.2 

nil 

11011111111 

57 

HAI*  IRA* 1260 

76 

227/22.56,22 

28 

61 

3,5 

nil 

11011111111 

5n 

MAI*MH*A228 

76 

228/  0,  5,  0 

96 

59 

0,0 

nil 

noinnni 

59 

HAI*f'0I*f)226 

76 

228/19.  1,  0 

96 

59 

0,0 

nil 

11011111111 

6R 

HAI*M  0*1269 

76 

223/22.39,99 

39 

lie 

3.9 

nil 

11011111111 

61 

MAl*Cr'I*l296 

76 

229/19.  6.59 

39 

109 

6.2 

nil 

11011111111 

62 

HAl-G/nAUaO 

76 

229/15.26,19 

33 

105 

4,4 

nn 

noinn  111 

63 

KAI*f ZH*l3a6 

76 

229/21.30.32 

31 

105 

3,6 

nn 

11011111111 

6/< 

HAI*T!jR*13D6 

76 

229/22.91.26 

91 

39 

3.1 

nn 

11011111111 

65 

MAi*uza*i3io 

76 

230/  2.  3.33 

39 

69 

3,8 

nn 

11011111111 

66 

mai*i-C'j*  i3ia 

76 

230/17,19,  9 

35 

138 

4.8 

nn 

11011111111 

67 

MAI*I0G*1317 

76 

231/  2.25,37 

38 

21 

2,7 

1111 

11011111111 

66 

MAI*KG1*a231 

76 

231/20.37,  0 

46 

59 

0.0 

1111 

11011111111 

69 

PAI*.V0I*A232 

76 

232/  1.17.  0 

96 

59 

0.0 

1111 

11011111111 

7e 

MAI*SZH*1321 

76 

232/12.99.95 

33 

105 

5.2 

1111 

11211111111 

71 

MAI*^CI*A233 

76 

233/  3,91,  0 

46 

59 

3,0 

1111 

11011111111 

72 

**Al*tsAS*l325 

76 

233/19,  5.25 

36 

74 

3.4 

1111 

11011111111 

73 

TAT*NPI*A222 

76 

222/  1.52.  0 

35 

121 

0.0 

1111 

11111110111 

7q 

TAT*^J01*B?22 

76 

222/12.58,  0 

35 

121 

0.0 

nnnnnrc’n  1 

75 

ANK*nOI*B251 

76 

251/16,59,  3 

95 

106 

0.0 

011111111111111 
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Tl-ISPSC  LOGGED  0*4|  9/29/77  AT  0l22l39,  ENTER  COMMAND  OR  ,HELP 


(12)  PROCS 

USER  PROCEDURE  LIST 
SPCCK 

(13)  CREATE  TASKl 

(14)  i.e  .PEr’roRM  filter 

(15)  2.0  .PERFORM  SPEED 

(16)  3.0  #S 

(17)  FPCCS 

USER  PROCEOURE  LIST 
EPOCH 
TASKl 

(18)  LIST  TASKl 

1.0  .PERFORM  FILTER 

2.0  .PERFORM  SPEED 

(19)  HELP  INTERUP 


SYSTEM  directory  OF  PROCEDURES 

DEFINE  NER  PROCEDURE 
INTERNAL  CREATE  COMMAND 

SAVE  PROCEDURE 

TASKl  ADDED  TO  SYSTEM  DIRECTORY 

INTERNAL  CREATE  COMMAND 
EXPLANATION  OF  AN  INTERUP 


.pcrfopm  intepup  system  command 


the  ".PERFORM  INTERUP"  SYSTEM  COMMAND  IS  AN 
internal  command  TO  BE  USED  DURING  THE  CREATION  OR 
EDITING  OF  A USER  PROCEDURE  WHEN  PROMPTED  BY  A 
SEQUENCE  number.  IT  INSERTS  A PAUSE  IN  THE 
PROCESSING  SEOUENCt,  EFFECTIVE  AT  EXECUTION  TIME# 
FROM  ‘'HICM  POINT  THE  USER  MAY  RE-START#  CONTINUE# 
OR  STOP  or  HITTING  DESIGNATED  PUSH  BUTTONS. 
RE-START  causes  A BRANCH*  TO  Tht  NEAREST  PRECEDING 
.PERFDRf'  INTERUP  In  THE  SEQUENCE  Ok  TO  THE 
beginning  of  THE  PROCEDURE#  CONlINUE  RESUMES 
EXECUTIPrj,  STCP  TERMINATES  EXFCt'TIUK, 
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(20>...  .€f>IT  TASKI  OPEM  PMCCLDUHEI  TASK!  POP  EDITING 

(21) 3.0  f»P  l.a  PRINT  LINE  ONE 

I, a .PERFORH  FILTER  INTERNAL  CREATE  COMMAND 

(22)  3.0  «D  I.  DELETE  LINE  ONE 

(23) 3.0  sw  2 REPLACE  LINE  TWO 

(24)  .PFRF  SELEV 

(25) 3.3  .PERF  FL'NCl 

(26)  4.0  .FEPF  INTEPL'P 

(27) 5,0  41  0.5  INSERT  A LINE  A THE  BEGINNING 


(28)  0.5 

,PERF 

INTER 

(29) 

«P 

. . 

0.5 

.PERF 

INTER 

2.0 

.FERF 

SELEV 

3.0 

.FERF 

F'JNCl 

, 

4,0 

,PERF 

INTEROP 

(30)  5.0 

«N 

RESEQUENCE  THE  PROCEDURE 

(31)  5,3 

4P 

1.0 

.PFRF 

INTER 

2.3 

,PCRF 

SELEV 

3.0 

.PERF 

FUrCl 

4.3 

.PERF 

interup 

(32)  5.0 

AS 

SAVE  THE  PROCEDURE 

(33V... 

.PERF 

TASKI 

PROCEDURE  EXECUTION  IN  NORM  MODE 

USER  PFOCEPURE  TASKi  INITIATED 

PAUSE  AT  l.‘J  * «4  RESTARTr  45  CONTINUE,  «6  STOP 


LI 
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TI-ISPSE  LOGGED  ON*  9/29/77  AT  0t22t39,  ENTER  COMMAND  OR  .HELP 


W 


1 


I 

I 

1 

1 

1 

I 

I 

I 

I 


SYSTEM  FUNCTION  SELEV  INITIATED 
ENTER  EVENT  SEGULNCE  NUMBER  FROM  LIST 

ENTER  STATION  NUMBER  (1,15) 

ENTER  COMPONENT  NUMBER  (1,3) 

ENTER  NUMBER  OF  COPIES  TO  BE  SAVED  : TS  s aZ\  TL  s 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

USER  FUNCTION  FUNCl  INITIATED 
I 5 l,02Et?0?' 

PAUSE  AT  9,C  t 04  RESTART,  «5  CONTINUE,  46  STOP 

(34)  mode  PRGM  set  ISPSE  TO  PROGRAM  MODE 

MODE  s PROM 

(35)  PERF  TASKl  TO  PROGRAM  PROCEDURE 

USER  PROCEDURE  TASKl  INITIATED 

PAUSE  AT  1,0  j 04  RESTART,  *5  CONTINUE,  Mb  STOP 
SYSTEM  FUNCTION  SELEV  INITIATED 
ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

enter  STATION  number  (1,15) 

ENTER  COMPONENT  NUMBtR  (1,3) 

enter  number  OF  COPIES  TO  BE  SAVED  : TS  s 421  TL  * 
ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 


I 
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0 SEC 


0 SEC 


US£«  function  funci  initiated 
I s 

PAUSE  AT  a.C)  I »u  RESTART,  AS  CONTINUE,  AS  STOP 
PAUSE  AT  l.R  t oa  RESTART,  AS  CONTINUE,  A6  STOP 
AUTOLOOP  REQUESTED,  ENTER  NUMBER  OF  TIMES  TO  LOOP 

'program  OK  for  procedure  TASKl 


DISPLAY  PROGRAM  MATRICES  FOR  TASKl 


MODE  NORM 

mode  s norm 

(37)  PPOC  TASKl  IS  programmed  (*) 

USER  PROCEDURE  LIST 
SPDCM 
TASKl* 

(38)  LjST  TASkI*  DISPLAY  PROGRAM  MATRICES  FOR  TASKl 

PROCEDURE  matrix 

7 -9R  664 

NUMERIC  INPUT  matrix 

0.1k9id?eePEf81  0.6eO0200E401  0,l000000Ef01  0.1000000Et01 

8 

PROCEDURE  FUNCTION  ADDRESS  TABLE 

1 2 0 5 - 

numeric  function  ADDRESS  TABLE 
0 10  0 

(39)  MODE  EXEC.  SET  ISPSE  TO  EXEC  MODE 

MODE  s EXEC 

(40)  PERF  TASKl  TO  EXECUTE  A PROGRAMMED  PROCEDURE 
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TI-lrfPSE  LOr-GtO  OM  9/29/77  AT  0l22l39,  ENTER  COMMAND  OR  .HELP 
USER  PPOCEPliRE  TASKl  IMTIATEO 

PAUSE  AT  l.t!  I e«  RESTART#  nb  CONTINUE,  «6  STOP 
SYSTEM  FUNCTION  SLLEV  INITIATED 
ENTER  EVENT  SfOUENCL  NUMBER  FROM  LIST 
■ ....  3.1C.)f)20.TEfPl 

Enter  station  number  (i,i5) 

. ....  C.SOCf^^POEfRl 

ENTER  COMHC\FNT  NUMBER  (1,3) 

....  U.lO^iiici’UE^Jl 

ENTER  NUMBER  OF  COPIES  TO  BE  SAVED  | TS  » 921  TL  « 0 SEC 

....  P.  lF?o;<0klE4i3i 

ENTER  event  sequence  ‘IJKBER  FrOM  LIST 

USER  FUNCTIOM  FUNCl  INITIATED 
I 8 1 .(‘llJtli.00 

PAUSE  AT  a.P  i 94  RESTART,  MS  CONTINUE,  #6  STOP 
PAUSE  AT  1.0  : 84  RESTART,  85  CONTINUE,  «6  STOP 
AU10L00P  CC'‘Pl.ETEO,  RETURNING  TO  SUPERVISOR 

(41) MODE  NORM 

MODE  * NP»M 

(*2) COMP  FLNCl  TASKl  IS  OEPRCCRAMMED 

COMPILE  enacted 

PROCEDURE  TASKl  MAS  BEEN  DEPROGRAMMED- 

5.0  urn  ISPSE  COMmako,  DELETE,  COULD  BE  USED 

LINE  3. a IN  PROCEDURE  TASKl  MAS  BEEN  REPLACED  BY  AN  InTERUP 

(44) LIFUN  FUNCl  IS  REMOVED  FROM  SYSTEM  DIRECTORY 

USER  FUNCnON  LIST 
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Pttnr 

*USER*PROCrOUHE  LIST 
SPPCM 
TASKl 

LIST  TASKl 

1. a  .PERF  INTER 

2,  a ,PERF  SELEV 

■^.P  .PERFoRy  InTERUP 
<I,P  .PERF  IWTERUP 
....  .DELETE  TASKl 
....  .PR  OC 
USER  PROCEDURE  LIST 
spncM 

PERF  LOGOFF 


TASKl  IS  OEPROCRAMKEOf  NO  ASTERISK 


.PERF  FUNCl  CHANCED  TO  AN  INTERUP 


- USER  FUNCTION  FUNCl  NAS  DELETED 

REMOVES  TASKl  FORM  SYSTEM  DIRECTORY 
PROCEDURE  NAME  TASKl  IS  DELETED 


END  OF  ISPSE  TERMINAL  SESSION 


TI-ISPS  logged  off  j 9/29/77  AT  0l«7l«l 
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(9)  . UFUN  - The  asterisk  after  the  name,  FUNCl,  shows  that  the 

user  function  is  compiled. 

(10)  .PERFORM  FUNCl  - executes  the  user  function,  FUNCl.  Out- 
put of  the  user  function  is  displayed  immediately  below  the 
command. 

(11)  . PERF  DPSCAN  - executes  the  system  function,  DPSCAN, 
with  the  abbreviated  form  of  . PERFORM. 

(12  ) . PROCS  - displays  the  current  system  directory  of  procedure 

names.  One  procedure,  SPDCM,  exists  at  this  time. 

(13)  . CREATE  TASKl  - enters  the  procedure  name,  TASKl,  into 
the  system  directory.  Only  create  commands  can  be  entered 
as  long  as  the  user  is  prompted  by  sequence  numbers. 

(14)  . PERFORM  FILTE  - and 

(15)  .PERFORM  SPEED  - inserts  instructions  to  execute  the  system 
functions  FILTER  and  SPEED,  into  the  procedure,  TASKl. 
FILTER  is  shortened  to  FILTE. 

(16)  #S  - saves  the  procedure,  TASKl,  and  returns  to  the  command 
supervisor.  The  procedure  is  written  to  disk. 

(17)  . PROC  - shows  that  the  procedure  name,  TASKl,  has  been 
added  to  the  system  directory.  . PROCS  has  been  abbreviated. 

(18)  . LIST  TASKl  - lists  the  source  lines  associated  with  the  pro- 
cedure, TASKl. 

(19)  .HELP  INTERUP  - briefly  describes  the  <function>  , INTERUP. 

(20)  . EDIT  TASKl  - allows  the  user  to  edit  the  procedure,  TASKl. 

Both  edit  and  create  commands  may  be  entered. 
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(21)  #P  1.0-  displays  line  one  of  the  procedure,  TASKl.  #P 
must  be  typed  in  columns  1 and  2. 

(22)  #D  1 - deletes  line  one  of  procedure,  TASKL 

(23)  #R  2 - replaces  line  two  of  procedure,  TASKl,  with  the  next 
line  entered. 

(24)  . PERF  SELEV  - is  the  command  that  replaces  line  two. 

(25)  . PERF  FUNCl  - adds  the  instructions  to  execute  the  user 
function,  FUNCl,  to  the  end  of  procedure,  TASKl. 

(26)  . PERF  INTERUP  - inserts  an  INTERUP  into  the  procedure, 
at  the  sequence  number  to  the  left  of  the  statement. 

(27)  #I  0.  5 - inserts  the  next  create  command  at  the  beginning  of 
the  procedure. 

(28)  . PERF  INTER  - places  an  INTERUP  at  the  front  of  TASKl,  It 
is  abbreviated. 

(29)  #P  - prints  the  entire  procedure.  No  comment  is  allowed. 

(30)  #N  - resequences  the  procedure. 

(31)  #P  - displays  the  new  sequence  numbers  and  the  source  lines 
of  TASKl. 

(32)  #S  - saves  the  procedure  and  exits  from  the  comniand  processor. 

(33)  . PERF  TASKl  - executes  the  procedure  in  NORM  mode.  If 
TASKl  was  progranuned,  the  program  matrices  wouldn't 
be  altered. 

(34)  . MODE  PRGM  - sets  ISPSE  to  program  mode,  so  that  a pro- 
cedure can  be  programmed.  A comment  is  allowed  on  this 
statement  since  a parameter  was  specified. 
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(35)  .PERF  TASKl  - programs  the  procedure,  TASKl,  by  construct- 
ing the  program  matrices. 

(36)  . MODE  NORM  - sets  ISPSE  to  normal  mode  in  order  to  use 
commands  other  than  . PERFORM  <user  name>  . 

(37)  . PROC  - shows  that  TASKl  is  programmed  because  an  asterisk 
(*)  follows  the  name. 

(38)  . LIST  TASKl*  - displays  the  program  matrices  for  the  pro- 
grammed procedure,  TASKl.  The  asterisk  must  immediately 
proceed  the  procedure  name. 

(39)  .MODE  EXEC  - sets  ISPSE  to  execute  mode  so  that  a pro- 
grammed procedure  may  be  . PERFORM' ed. 

(40)  . PERF  TASKl  - the  programmed  procedure  is  executed.  Pro- 
cedure flow  is  determined  by  the  program  matrices. 

(41)  .MODE  NORM  - resets  ISPSE  to  normal  mode. 

(42)  . COMP  FUNCl  - allows  the  user  to  edit  FUNCl.  Since  the  pro- 
grammed procedure,  TASKl,  references  this  user  function,  it 
is  deprogrammed. 

(43)  #W  - deletes  the  user  function  and  replaces  the  .PERFORM 
FUNCl  in  TASKl  with  an  INTERUP.  The  command,  .DELETE, 
could  have  been  used  without  using  . COMPILE. 

(44)  . UFUN  - FUNC  has  been  removed  from  the  user  function 
system  directory. 

(45)  . PROC  - shows  that  TASKl  is  deprogrammed  because  the 
asterisk  has  been  removed. 

(46)  . LIST  TASKl  - displays  the  source  lines  of  TASKl.  Note  ihat 

. PERFORM  FUNCl  is  removed  and  in  its  place  is  a PERFORM 
INTERUP. 
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(47)  . DELETE  TASKl  - removes  the  procedure  from  the  system 
directory. 

(48)  . PROC  - TASKl  is  no  longer  on  the  procedure  list. 

(49)  . PERF  LOGOFF  - ends  the  current  ISPSE  session. 
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SECTION  IV 

INTERACTIVE  SEISMIC  PROGRAMMING  LANGUAGE 


The  Interactive  Seismic  Programming  Language  (ISPL)  com- 
piler is  invoked  when  the  user  enters  the  ISPSE  command,  . COMPILE <user 
name>  , as  discussed  in  Section  III.  This  command  is  used  to  define  and 
modify  user  functions,  which  are  named  sequences  of  ISPL  statements.  Af- 
ter an  error-free  semantic  analysis  of  the  user  function  (Subsection  C),  it 
may  be  .PERFORM'ed  individually  or  as  part  of  a procedure  (Section  III). 

The  intent  of  this  section  is  to  present  an  overview  of  ISPL, 
describe  the  ISPL  interactive  editor,  and  explain  ISPL  statements  in  detail. 
Finally,  a list  of  semantic  errors  is  provided  and  the  language  is  formally 
defined  in  BNF. 

A.  OVERVIEW 

ISPL  is  an  algorithmic  oriented  language,  like  FORTRAN  and 

i 

ALGOL,  which  is  specifically  attuned  to  seismic  processing.  ISPL  has 
advantages  over  these  other  languages  because  it: 

• provides  a quick  and  easy  method  of  displaying  data  (both 
graphically  and  in  tabular  form)  and  performing  simple  cal- 
culations. 

• enables  the  geophysicist  to  test  new  algorithms  without  the 
time  consuming  job  of  task  building  (e.  g.,  linkage  editing). 

• relieves  the  burden  of  overhead  associated  with  accessing 
ISPSE  seismic  data  structures,  from  the  programmer. 
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• interfaces  easily  with  existing  ISPSE  processing  modules  which 
include  both  system  functions  and  user  functions. 

• decreases  the  time  lost  because  of  typing  errors  by  performing 
immediate  line-by-line  syntax  checking. 

• reduces  debugging  effort  by  providing  superior  error  diagnostics 
at  execution  time. 

• contains  high  level  vector  processing  statements  for  frequently 
used  operations. 

Execution  time  diagnostics  include  checking: 

• the  range  of  vector  indices. 

• function  argument  values. 

a division  by  zero  in  arithmetic  expressions. 

• input  values  to  the  exponentiation  operator, 

e disk  file  record  numbers. 


e the  number  and  types  of  arguments  input  to  special  vector 

processing  statements 

e the  vector  lengths  input  to  special  vector  processing  statements 

At  this  time,  only  the  vector  processing  statements  designed  to  perform 
multivariate  discrimination  (Sax,  1976),  are  included  as  part  of  ISPL.  How- 
ever, new  statements  may  be  defined  and  added  te  ISPL  at  any  time  by  the 
systems  programmer,  thereby  expanding  its  capabilities.  Fi^re  IV- 1 lists 
the  capabilities  of  ISPL.  When  the  analyst  has  defined  a user  function,  either 
from  the  keyboard  or  from  cards  via  the  batch  capability  of  the  ISPL  compiler, 
he  must  perform  a semantic  error  analysis  before  it  may  be  PERFORM'ed. 
This  is  done  by  means  of  the  ISPL  editing  command,  #S  (Subsection  B).  If 
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Access  and  modify  ISPSE  data  files  containing 
waveforms  and  parameters. 

Perform  scalar  and  vector  processing  via 
arithmetic  and  logical  operators. 

Accomplish  multivariate  discrimination  using 
high  level  vector  processing  statements. 

Display  tabular  information  on  the  CRT. 

Automatic  X-Y  plotting  of  vectors  on  the  CRT. 


FIGURE  IV- 1 
ISPL  CAPABILITIES 


the  Bcmantic  analysia  of  the  user  function  reveals  any  errors,  then  control 
is  returned  to  the  ISPL  interactive  editor.  Otherwise  an  executable  code 
file  is  generated  and  control  is  transferred  to  the  ISPSE  command  supervisor. 

After  an  error-free  semantic  analysis  has  been  performed  and 
an  executable  code  file  has  been  generated,  the  user  function  may  be  executed 
individually  by  means  of  the  . PERFORM  < user  name  > , ISPSE  command,  or 
as  part  of  a procedure. 

The  user  should  note  that  an  infinite  loop  may  be  encountered 
during  the  execution  of  a user  function  due  to  programmer  error.  The  user 
may  halt  the  execution  of  a user  function  at  anytime  by  typing  in  at  the  oper- 
ator's console,  the  MCR  command: 

MCR>ABO  UFUNC 

ISPSE  control  is  then  transferred  to  the  command  supervisor.  If  the  user 
function  is  being  executed  as  part  of  a procedure,  the  procedure  is  also 
terminated. 

B.  ISPL  INTERACTIVE  EDITOR 

Following  the  . COMPILE  <'u8er  name  > command  the  user  may 
enter  ISPL  statements  or  edit  commands.  The  edit  commands  are  inter- 
preted by  the  ISPL  interactive  editor. 

The  ISPL  interactive  editor  allows  the  user  to  edit  user 
functions,  input  user  functions  from  the  card  reader  (batch  processing), 
and  exit  from  the  ISPL  compiler.  Edit  commands  must  be  entered  as  the 
first  symbolic  line  entry  following  a statement  number.  They  may  not  be 
entered  as  part  of  a continuation  statement.  A <8tatement  number  > is 
defined  in  BNF  to  be: 

<statement  number  > ::  = ^ integer  > | <integer>  . | < integer  > . <digit> 
<integer>!:  = <digit>  |<  integer  > <digit> 
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<digit>::  = l|2  ...  9|o. 

Edit  commands  must  start  in  col\imn  one  and  their  functions  are; 


#I<statement  number> 
#D<statement  number> 


#R<statement  number> 


#P<statement  number> 

#P 

#N 

#Q 

#S 

#w 


insert  a statement  at  the  specified  position. 

delete  the  statement  at  the  specified  pos- 
ition. 

replace  the  statement  at  the  specified 
position. 

print  the  next  four  statements  starting  at 
the  specified  position. 

print  the  entire  user  function. 

resequence  the  user  function. 

input  the  user  function  from  the  card 
reader. 

terminate  the  ISPL  compiler  and  return  to 
the  ISPSE  command  processor. 

perform  semantic  error  analysis,  generate 
the  executable  code  file,  and  return  to  the 
ISPSE  conunand  processor. 

delete  the  user  function  and  return  to  the 
ISPSE  command  processor. 


There  are  several  restrictions  which  should  be  noted  by 
the  user.  The  insert  command  may  only  be  used  with  a new  restatement 
number  > . The  command  is  ignored  if  an  existing  <statement  number> 
is  specified.  The  delete  command  must  be  used  with  an  existing  <statement 
n\imber>  or  it  is  ignored.  The  replace  command  may  be  used  with  any 
<8tatement  number>  . If  the  statement  doesn't  exist,  the  command  operates 
identical  to  #1.  Batch  input  of  a user  function,  #B  edit  command,  is  processed 
until  an  edit  command  is  encountered  and  then  input  is  received  from  the 
CRT  keyboard.  Generally,  the  last  card  in  the  batch  input  should  be  a 
#S. 
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C.  DETAILED  DESCRIPTION  OF  ISPL 

In  this  subsection,  a detailed  semantic  description  of  the 
Interactive  Seismic  Programming  Language  (ISPL)  is  presented.  Topics 
to  be  addressed  are  valid  entries,  constants,  variables,  declarations, 
arithmetic  expressions,  and  statements.  The  following  ISPL  < statement  > s 
(see  Section  IV-D  for  syntax)  are  discussed:  assignment  statement,  branch 
statement,  label  statement,  conditional  statement,  I/O  statements,  and 
numerical  operator  statements.  For  each  statement  the  general  form  follow- 
ed by  an  explanation  and  example  are  given. 

1.  Valid  Entries 

Following  the  . COMPIL  <" name > command  and/or  an  edit 
command  (Section  IV-B)  the  user  is  prompted  with  a statement  number,  after 
which  one  or  more  symbolic  line  entries  is  expected.  A symbolic  line  entry  is 
an  alphanumeric  character  string  containing  at  most  59  characters,  blank 
characters  included,  and  terminated  by  a line  feed  (@  character  for  cards) 
or  a carriage  return.  Termination  by  a line  feed  indicates  continuation  and 
results  in  prompting  with  the  same  statement  number  after  which  an  addition- 
al symbolic  line  entry  is  expected.  (Exception:  A symbolic  line  entry  con- 
taining a < label  constant  > may  not  be  continued  (see  IV-C-2). ) Termin- 
ation by  a carriage  return  indicates  end  of  entry,  that  is,  no  symbolic  line 
entries  will  follow.  Note  also  that  a symbolic  line  entry  is  one  of  two  types, 
a statement  line  (an  ISPL  <' statement  > or  portion  thereof)  or  a comment 
line  (first  character  a 'C'). 

With  these  definitions  in  mind,  a valid  entry  is  defined  as  the 
concatenation  of  all  symbolic  line  entries,  excluding  comment  lines,  for  a 
statement  number  into  a composite  character  string  w‘-‘ch  may  be  classified 
as  an  ISPL  <statement>  (Section  IV-d).  If  the  composite  string  cannot  be 
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80  classified  the  entry  is  invalid  and  a syntax  error  message  is  immediately 
displayed.  The  following  rules  govern  valid  entries: 


e Let  N be  the  number  of  statement  lines  and  M be  the  number 

of  comment  lines  in  a valid  entry.  Then  1 <N^  4 and  0<M<  6. 

e An  identifier,  number,  mathematical  function  name,  statement 

label  or  keyword  (e.g.  , VECTOR,  IF,  THEN,  JUMP,  TO) 
may  not  be  divided  among  symbolic  line  entries  (Section  IV-D). 

a If  a syntax  error  message  is  displayed  following  a line  feed 

only  the  symbolic  line  entry  in  question  need  be  re-entered. 

• If  a syntax  error  message  is  displayed  following  a carriage 
return,  the  entry  (for  that  statement  number)  is  invalid  and 
must  be  re-typed  in  its  entirety.  Moreover,  the  null  entry 
(just  a carriage  return)  is  invalid,  but  generates  error 
message.  The  user  is  simply  prompted  with  the  same  state- 
ment number. 

• Only  symbolic  line  entries  (statement  lines  and  comment  lines) 
associated  with  valid  entries  are  recorded  and  saved  under 
user  function  < name  > by  the  system. 

• A user  function  may  contain  at  most  99  valid  entries  (i.  e. , 99 
distinct  statement  numbers). 

e A valid  entry  contains  an  ISPL  <8tatement>  of  which  there  are 

two  main  classes,  < declaration  statement  > 's  and  <executable 
statement  >'s:  < declaration  statement  >*8  inform  the  system  that 
specified  < identifiers  > are  VECTOR'S  or  LABEL'S  but 
they  are  not  executed  when  the  user  function  is  . PERFORM'ed. 

< executable  statement  >'8,  on  the  other  hand,  are  executed 


IV- 7 


and  control  logical  flow,  computations,  and  I/O  when  the  user 

function  is  .PERFORM'ed. 

Figure  IV- 2 provides  several  examples  of  valid  entries. 

2.  Constants 

A constant  is  a data  type  which  does  not  change  when  a user 
function  is.  PERFORM'ed.  There  are  two  classes  of  constants  as  defined  in 
Section  IV-D,  < number  >*8  and  < label  con8tant>'s. 

< number  >'s  are  composed  of  digits,  digits  with  a decimal  point, 

or  digits  with  a decimal  point  and  an  exponent.  < number  >'s  without  a decimal 

point  may  not  exceed  131071  and  < number  > 's  with  decimal  points  may  not 
75  -75 

exceed  10  , be  less  than  10  , nor  have  more  than  7 significant  figures. 

Under  ISPL,  all  < number  >’s  are  stored  internally  as  floating  point,  hence 
175,  175.  , and  17.  5E01  are  equivalent  representations  of  the  quantity  one- 
hundred  and  seventy  five.  Although  negative  < number  > 's,  as  such,  do  not 
exist  under  ISPL,  the  occurrence  of  -<number>in  an  <arithmetic  expression  > 
means:  change  the  sign  of  the  constant  < number > . Hence  the  value  of  an 
< arithmetic  expression  > may  be  negative.  For  example,  x s _5  assigns  the 
value  minus  five  to  the  variable  x. 

A < label  constant  > is  an  ASCII  character  string  preceded  by 
a " . If  the  string  is  also  followed  by  a second  " then  the  <label  constant>con- 
sists  of  all  characters  between  the  double  quotes.  Otherwise  the  < label  con- 
st«nt>  consists  of  all  characters  in  that  portion  of  the  symbolic  line  entry  fol- 
lowing the  A <label  constant>  may  contain  no  more  than  60  characters, 
hence  a symbolic  line  entry  containing  a <label  constant>  may  not  be  continued. 

Note  in  addition  that  the  number  of  constants  in  a single  user 
function  is  restricted  to  124  <number>'s  and  approximately  900  total  char- 
acters for  <label  constant>'s.  Figure  IV-3  provides  several  examples  of 
constants. 
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Valid  antriea 

1. 0 C THIS  IS  AN  EXECUTABLE  STATEMENT 

1.0  X=5 

@ 

Explanation  : 

Assigns  the  constant  5 to  the  scalar  x 

Valid  entry  ; 

2.  0 C THIS  IS  A DECLARATION  STATEMENT 

2.0  VECTOR  (A(10),  B(20)) 

@ 

Explanation  : 

Ini'orms  the  system  that  the  <identifie^  A is  a 

10  element  vector  and  that  the  <identifiej^  B is 

a 20  element  vector 

Valid  tntry  : 

4.0  LABEL  (L(20)) 

4.  0 C THIS  IS  ALSO  A DECLARATION  STATEMENT 

@ 

Explanation  : 

Informs  the  system  that  ^identifie^  L is  a 

20  character  label 

Valid  entry  : 

5.  0 L = "A  20  CHARACTER  LABEL" 

Explanation  : 

Assigns  the  ^label  constant^  "A  20  CHARACTER  LABEL" 
to  the  20  character  label  L (see  3rd  example  above  and 

Section  IV-d) 

FIGURE  IV- 2 

EXAMPLES  OF  ENTRIES 
(PAGE  1 OF  2) 


Valid  entry  : 7. 0 C THIS  IS  ALSC  @ 

7.0  A(l)  = @ 

7.0  C AN  EXECUTABLE  @ 

7. 0B{2)  @ 

7.  0 C STATEMENT 

Explanation  : Assigns  the  2nd  element  of  the  vector  B 

to  the  first  element  of  the  vector  A 
(see  preceding  example  and  Section  IV-D) 
Invalid  entry  ! 9. 0 JUMP  TO  $100  @ 

9.0  5 

EIxplanation  : Entry  is  invalid,  because  the  <statement  label> 

$1005  is  divided  between  symbolic  line  entries 
1 and  2,  and  will  produce  a syntax  error 
Valid  entry  : 1 0. 0 JUMP  @ 

10.  0 TO  @ 


EIxplanation  : 


Valid  entry  : 


10.  0 TO  @ 

10.  0 $1005 

i^xplanation  : This  executable  statement  transfers  control  to 

the  <statement  label>  $1005 


FIGURE  IV- 2 

EXAMPLES  OF  ENTRIES 
(PAGE  2 OF  2) 
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3. 


Variables  and  Declarations 


A variable  is  a symbolic  name  called  an  < identifier  > vtdiich 
represents  one  or  more  location(s)  in  memory  and  the  values  which  are  stored 
there  during  user  function  execution.  An  < identifier  > is  composed  of  a 

< letter  > followed  by  from  one  to  four  < letter  >'s  or  <digit>'s;  longer 
<identifier  > 's  are  truncated  to  five  characters  without  warning.  Also, 

an  < identifier  > cannot  be  a reserved  keyword  (e.  g.  , IF,  THEN,  JUMP,  TO). 
ISPL  admits  three  classes  of  variables:  scalars,  vectors,  and  labels.  (Refer 
to  Section  IV- D) 

A scalar  is  an  undeclared  < identifier > representing  a single 
memory  location  and  the  floating  point  value  stored  there.  It  may  not  be 
subscripted.  An  <identifier>  is  declared  to  be  a vector  by  the  VECTOR 
<declaration  statement  >.  A vector  represents  a specified  number  N>0 
of  contiguous  memory  locations  called  < vector  elements  > and  the  floating 
point  values  stored  there.  < vector  elements  > are  referred  to  by  sub- 
scripting the  < identifier  > with  a <number>  or  a scalar.  The  <number> 
or  scalar  must  represent  a quantity  whose  integer  portion  is  at  least  1 but 
not  greater  than  N.  Otherwise  a fatal  error  message  is  displayed  during 
execution.  < vector  elements  > may  appear  in  an  < assignment  statement  > , 

< arithmetic  expression  > , or  < variable  list>.  A vector  may  appear  unsub- 
scripted  in  a <variable  list>,  in  which  case  an  implied  reference  to  all  < vector 
elements  > in  the  order  1 through  N is  understood. 

An  <identifier>  is  declared  to  be  a label  by  the  LABEL.  <de- 
claration  statements  A label  may,  at  any  given  moment,  hold  one  < label  con- 
stant>  containing  a specified  number  0<M<60  or  ASCII  characters.  The 
label  n\ay,  of  course,  hold  many  different  < label  constant> 's  during  user 
function  execution.  A label  is  always  referred  to  by  its  < identifier  > alone 
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(no  aubscripting  is  permittedi  and  may  appear  only  in  an  < assignment  state- 
ment > or  < variable  list  >. 


i: 
i: 
i; 

^ ^ noted: 

i: 

i: 


The  following  restrictions  concerning  variables  should  be 


The  values  stored  in  any  scalar  or  vector  element  have 

at  most  7 significant  digits  of  accuracy  and  magnitudes 
-75  75 

bounded  by  10  and  10  . Values  outside  this  range  are 

clipped  and  cause  OTS  overflow-underflow  messages  at  the 
DEC  Writer  console  when  they  are  generated. 


i; 

i 

i: 

h 

I: 


li 

li 

II 

n 

n 
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• Let  K <identifier>  's  be  declared  vectors  and  L <identifier> 's 

labels  in  a user  function,  ^ 

Let  I N.  > be  the  set  of  vector  lengths  and  < M.  > the  set  of 
label  sizes. 

Let  M.  = integer  part  ([M^+^5l 

Let  Ag  = 90-K-L  and  ^i  ^ ^i 

Then:  A_  must  be  non-negative  and  is  the  number  of  user 
o 

memory  elements  allocated  for  scalars  ( = # scalars  available 
for  use).  And:  A^j^  must  not  exceed  1957  and  is  the  number 
of  user  memory  elements  allocated  for  the  declared  vectors 
and  labels. 

For  example,  if  one  1957  element  vector  is  declared  then  no 

labels  can  be  declared  and  89  scalars  are  available  for  use. 

Or  more  commonly,  if  seven  256  element  vectors  are  declared 

then  thirteen  60  character  labels  may  be  declared,  70  scalars 

would  be  available  for  use,  and  9 user  memory  elements 

would  remain  unallocated.  Attempts  by  the  user  to  declare 

vectors  and  labels  such  that  A_  and  A do  not  conform  to 

9 V Xrf 
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the  above  restrictions  will  result  in  semantic  error  diagnostics 
following  a #S,  to  be  discussed  later  in  this  section. 

• Suppose  a <label  constant>  containing  M characters  is  stored 

in  a label  declared  to  be  of  size  M (in  characters).  Then  if 
M = M,  the  <label  constant  > is  stored  as  written, 

M>M,  the  right-most  ^ - M characters  of  the<label  constant> 
are  truncated  before  storing, 

M<M,  the  <label  con8tant>  is  stored  as  written  followed  by 
A 

M - M unpredictable  characters. 

Figure  IV-4  provides  examples  of  variables  and  declarations. 

4.  Arithmetic  Expressions 

An  <arithmetic  expression>  is  a rule  or  formula  for  computing 
a numerical  value.  This  value  is  obtained  by  executing  the  indicated  binary 
operators  on  the  <primary>'s  of  the  expression  (Section  IV-D).  A <primary> 
is  a<number>,  scalar,  < vector  element>,  parenthesized  <'arithmetic  ex- 
pression>,  or  the  result  of  a unary  operation  on  a <primary>.  Binary  oper- 
ators are  addition  (+),  subtraction  (-),  multiplication  (*),  division  (/),  and 
exponentiation  (A).  Unary  operators  are  minus  (-)  and  <mathematical  func- 
tion>  evaluation.  The  sequence  of  operations  within  one  <arithmetic  ex- 
pre8sion>  is  generally  from  left-to- right  with  the  following  additional  rules 
of  precedence  determined  by  the  syntax  given  in  Section  IV-D. 

FIRST  } parenthesis,  unary  minus  (-),  <mathematical 
function  > evaluation 
SECOND  : exponentiation  (A) 

THIRD  : multiplication  (♦),  division  (/) 

FOURTH  : addition  (+),  subtraction  (-) 

For  example,  the  expression:  A + B * C A-  ticos  ([b3  is  evaluated  as 
follows:  The  cosine  of  D is  computed,  its  sign  changed,  and  C is  raised  to 
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EXAMPLES  OF  VARIABLES  AND  DECLARATIONS 


that  result.  The  result  of  that  exponentiation  is  multiplied  by  B and  the  result 
of  that  multiplication  is  added  to  A,  completing  the  evaluation. 


Ten  <mathematical  function>'s  are  available.  They  are 
SIN  (sine),  &tCOS  (cosine),  &iTAN  (tangent),  8tATN  (arctangent),  &EXP 
(exponential:  e^),  &LNN  (natural  log),  &LOG  (log  base  10),  &cSQR  (square 
root),  and  8tPIM  (//multiplied  by).  The  argument  of  a <mathematical  function> 
is  enclosed  in  brackets  instead  of  parenthesis. 

There  are  several  restrictions  which  should  be  noted  concern- 
ing <arithmetic  expre88ionB>; 

a Any  formula  which  cannot  be  claeeified  ae  an  <arithmetic 

expre8sion>  under  the  rulee  of  syntax  is  invalid  and  generates 
a syntaoc  error. 

• At  most  five  levels  of  parenthesis  are  permitted  in  an  <arith- 
metic  expression>.  Violation  of  this  rule  generates  a syntax 
error. 

• Intermediate  values  incurred  during  the  evaluation  of  an 

<arithmetic  expression>  have  at  most  7 significant  digits 

-75  75 

of  accuracy  and  a magnitude  bounded  by  10  and  10 
Values  outside  this  range  are  clipped  and  cause  OTS  over- 
flow or  underflow  message  at  the  DEC  Writer  Console  when 
they  are  generated. 

• The  <mathematical  function>'s  &LNN  and  &LOG  must  have  a 
positive  argximent.  A negative  or  zero  argument  for  either 
function  will  generate  a fatal  execution  error.  Likewise  the 
<mathematical  function>  &cSQR  must  have  a non-negative 
argument  or  a similar  error  will  result. 


The  binary  operator  / is  defined  as  follows: 

( A/B,  If  B 0 
^undefined,  otherwise 


IV- 16 


The  binary  operator  A is  defined  as  follows: 

if  B is  an  integer  and  (A  0 or  B>0) 

AAB  ^ if  B is  not  an  integer  and  A>0 

^undefined,  otherwise. 

For  the  case  where  either  operator  is  undefined  a fatal  execution  error  will 
be  generated. 

Figure  IV-5  provides  some  examples  of  Arithmetic  Expressions. 
5.  Executable  Statements 

Thus  far,  the  basic  elenr.ents  of  an  ISPL  user  function  have 
been  discussed.  These  include  entries,  constants,  variables,  declarations, 
and  arithmetic  expressions.  Now  the  <executable  statement >'s  previously 
mentioned  will  be  discussed  in  detail.  They  include  the  assignment  statement, 
branch  statement  and  label  statement,  conditional  statement,  display  state- 
ment, input  statement,  CREAD  statement,  GET  and  PUT  statements,  DREAD 
and  DWRIT  statements,  plot  statement,  and  numerical  operator  statements. 
With  a knowledge  of  these  <' executable  statement>'s  and  a mathematical  for- 
mulation of  his  problem,  the  seismic  user  may  be  able  to  define  one  or  more 
ISPL  user  functions  to  serve  as  a solution  to  the  problem. 

a.  Assignment  Statement 

As  defined  syntactically  in  Section  IV-D  the  <assignment  state- 
ment>  is  one  of  two  types,  arithmetic  assignment  or  text  assignment.  The 
general  forms  are: 

arithmetic  assignment  : <variable>  = <arithmetic  expression> 
text  assignment  : <identifier>  = < label  constant> 

Both  types  permit  the  user  to  assign  information  to  symbolic  memory  locations. 
Recall  from  Section  IV-C-3  that  for  the  arithmetic  assignment  statement,  the 
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<variable>  muat  be  a scalar  or  vector  element.  The  statement  means:  re- 
place the  value  stored  in  memory  location  <variable>  with  the  value  obtained 
by  evaluating  the  <arithmetic  expression>  (Section  IV-C-4).  Also  from 
Section  IV-C-3,  the  <identifier>  in  a text  assignment  statement  must  be  a 
label.  The  statement  means:  replace  all  ASCII  characters  stored  in  memory 
locations  (s)  <identi£ier>  with  the  ASCII  character  string  <label  constant> 
(Section  IV-C-2).  Figure  IV- 6 gives  some  examples  of  assignment  statements. 

b.  Branch  Statement  and  Label  Statement 

As  defined  syntactically  in  Section  IV-D  the  <branch  state- 
ment has  the  general  form: 

JUMP  TO  <statement  label  > 

The  counterpart  of  the  <branch  statement  is  the  <label  statement  which 
has  general  form: 

<statement  label > CONTINUE 

The  <statement  label>  consists  of  a dollar  sign  ($)  followed 
by  one  to  four  digits  ( e.  g.  • $1000,  $2,  $200,  etc.  ).  A particular  <state- 
ment  labet  may  not  occur  in  more  than  one  <label  statement>  within  a given 
user  function. 

The  purpose  of  the  <branch  statement>  is  to  unconditionally 
transfer  control  to  the  corresponding  <label  statement>,  for  example,  JUMP 
TO  $1000  transfers  control  to  the  statement:  $1000  CONTINUE.  Hence  the 
<label  statement  simply  acts  as  a control  point  in  the  user  function  and  does 
not  otherwise  affect  execution. 

The  following  important  points  should  be  noted  with  respect  to 
branch  and  label  statements: 
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• A ^branch  statement^  must  have  one  corresponding  < label 
statement>,  however  many  <branch  statements  >' s may  refer 
to  the  same  <label  statement>. 

• At  most  25  unique  <label  statement >'s  may  exist  simultan- 
eously in  one  user  function. 

Failure  to  observe  the  above  points  will  result  in  the  generation 
of  semantic  errors  following  #S,  to  be  discussed  later  in  this 
section. 

Figure  IV- 7 provides  some  examples  of  branch  and  label 

statements. 

c.  Conditional  Statement 

Before  discussing  the  general  form  of  the  <conditional  state- 
ment >,  a < logical  expression>  must  be  defined.  Consider  two  <arithmetic 
expression >'s  joined  by  one  of  the  logical  operators  (=,<»>,<=,>=)  which 
are  defined  below.  Further  suppose  each  <arithmetic  expression>  is  eval- 
uated in  turn,  yielding  two  distinct  values.  Then  the  result  is  a relationship 
between  those  values,  which  may  be  TRUE  or  FALSE,  and  the  construct 
that  has  been  described  is  called  a <logical  expression>  . For  example, 
2i-3<4-t-5isa  <logical  expression>  which  is  TRUE,  because  5 is  less 
than  9.  However  A + 1 = A is  a FALSE  <logical  expression>,  regardless  of 
the  value  of  A,  because  1 is  not  equal  to  0. 

With  that  backgrotind,  the  general  form  of  the  <conditional 
statement>  according  to  Section  IV-D  is: 

IF  <logical  expression>  THEN  <simple  executable  statement> 

where  the  <simple  executable  statement>  is  any  executable  statement  with 
the  exception  of  a <conditional  statement>  or  a <label  statement>. 
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Valid  Branch  and 
Label  Statement*: 

5.  0 $50^CONTINUE 

• 

40.  0 JUMP  TO  $50 

• 

• 

50.  0 JUl^P  TO  $1 

• 

90.  0$1  CONTINUE 

• 

• 

99.  0 JUMP  TO  $50 

Invalid  Branch  and 
Label  Statements: 

1.  0 $20, CONTINUE 

• 

40.  0 JUMP  TO  $20 

Duplicate  label  statements 

1 

$20  CONTINUE 

50.  0 JUMP  TO  $40  ’ 

> also  non-existent  label  state- 

70. 0 $20  Continue  ^ 

ment 

$40  CONTINUE 

• 

90.  0 $ABC  CONTINUE 

<statement  label>  contains 
letters 

91.  0 100  CONTINUE 

<statement  label>does  not 
contain  a $ 

FIGURE  IV- 7 

EXAMPLES  OF  BRANCH  AND  LABEL  STATEMENTS 


On  execution  of  a <conditional  statement> , the  < logical  ex- 
pre8Sion>  is  first  evaluated  as  being  either  TRUE  or  FALSE.  If  TRUE, 
then  the  <simple  executable  stateTnent>  is  executed,  if  FALSE  control 
passes  immediately  to  the  next  sequential  <executable  statement>  in  the 
user  function.  For  example,  the  ISPL  statement  sequence: 

• 

54. 0 1=0 

55.0  IF  2 + 3<4  + 5 THEN  I«1 

56.  0 1 = 1 + 1 

results  in  the  value  2 being  assigned  to  the  variable  1.  On  the  other  hand 
the  sequence: 

34. 0 1=0 

35.0  IF4  + 5<2  + 3 THEN  I = 1 

36. 0 1 = 1 + 1 

results  in  the  value  1 being  assigned  to  the  variable  I. 

Some  additional  comments  concerning  <conditional  8tatement>'s 
are  in  order.  Specifically, 

• The  logical  operators:  =,<,>,<=,>=  are  read  equal  to,  less 
than,  greater  than,  less  than  or  equal  to,  and  greater  than  or 
equal  to  respectively,  where  equal  to  means  mathematically 
equivalent  to  within  five  units  in  the  seventh  decimal  place. 
(Recall  that  values  under  ISPL  are  accurate  to  at  most  7 dec- 
imal places). 

• A loop  in  which  a counter  I varies  from  1 to  N is  easily  con- 
structed via  the  <conditional  8tatement>  in  the  following  way 
(assume  N has  been  initialised): 


i 
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10. 0 1 = 0 

11.0  $100  CONTINUE 

12. 0 1 = 1 + 1 

40.  IF  I<=  N - 1 THEN  JUMP  TO  $100. 

Figure  lV-8  provides  some  examples  of  conditional  staments. 

d.  DISPLAY  Statement 

The  DISPLAY  statement  is  the  first  of  the  <1/0  statement>'s 
to  be  discussed  in  this  section.  Its  general  form  from  Section  IV-D  is: 

DISPLAY  «variable  list» 

where  the  <variable  list>  is  a sequence  of  <variable>'s  separated  by  commas. 
The  list  may  include  scalars,  vectors,  vector  elements,  and  labels.  On 
execution,  display  of  the  information  begins  on  the  next  65  character  line  on 
the  CRT  and  continues  for  the  number  of  lines  required.  Each  scalar  or 
vector  element  in  the  list  represents  one  numerical  value  that  is  displayed 
in  a 15  character  format,  automatically  determined  by  the  system  and  de- 
pending on  the  value's  magnitude.  Occurrence  of  a vector  in  the  list  implies 
display  of  all  the  vector's  elements,  hence  the  statements:  VECTOR  (A(20)), 
DISPLAY  (A),  generates  5 lines  of  numerical  values  on  the  CRT,  4 values 
per  line.  Occurrence  of  an  M character  label  in  the  list  implies  display  of 
the  M characters  currently  held  by  the  label.  Therefore  the  statements: 
LABEL  (L(15)),  L = "THE  TOTAL  COST=",  DISPLAY  (L,  COST),  displays 
the  <label  constant>:  "THE  TOTAL  COST="  followed  by  the  numerical 
value  represented  by  the  scalar  COST,  on  the  CRT.  Note  that  a full  CRT 
screen  (30  lines)  is  automatically  scrolled  to  the  Line  printer  unless  blue 
pushbutton  #6  beneath  the  screen  is  on,  preventing  screen  scroll  (and  user 
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function  execution)  until  that  button  is  turned  off.  Figure  IV- 9 provides  some 
examples  of  DISPLAY  statements. 

e.  INPUT  and  CREAD  Statements 

The  INPUT  and  CREAD  statements  are  two  of  the  four  ISPL 
<1/0  statement's  via  which  data  may  be  input  to  the  ISPSE  system.  Their 
general  forms  from  Section  IV- D are: 

INPUT  «variable  list» 

CREAD  «variable  list>) 

where  the  <variable  list>,  may  include  scalars,  vectors,  vector  elements, 
and  labels.  On  execution  of  the  INPUT  statement,  the  user  is  prompted  with 
four  dots  (....)  for  each  scalar  or  vector  element  in  the  list.  In  each  case 
the  system  expects  a valid  <number>  to  be  entered  at  the  CRT  keyboard. 
Entry  of  an  invalid  number  generates  an  error  message  demanding  that  the 
number  be  re-entered.  Occurrence  of  a vector  in  the  list  implies  input  of 
all  the  vector's  elements.  Occurrence  of  an  M character  label  in  the  list 
also  prompts  the  user  with  four  dots,  however  in  this  case  the  system  expects 
a <character  string>  of  M<60  characters  to  be  entered. 

Execution  of  the  CREAD  statement  is  identical  to  that  of  the 
INPUT  statement,  except  that  the  user  is  not  prompted  with  four  dots.  In- 
stead information  is  read  from  the  card  reader,  one  <number>  or  <character 
string  > per  card,  appearing  free  format  in  columns  1 through  60.  Detection 
of  an  invalid  number  generates  an  error  message  and  requires  correction  and 
re-reading  of  the  bad  card,  and  a carriage  return  at  the  CRT  keyboard  to 
continue  execution. 

Figure  IV- 10  gives  some  examples  of  INPUT  and  CREAD  state- 
ments. 
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ISPL  Statementa 
Defining  a User 
Function 


1.  0 VECTOR  (X(4)) 

2.0  LABEL  (L0(20),  LI  (55)) 

3.0  X(l)=l 

4.0  X(2)=2 

5.0  X(3)=3 

6.0  X(4)=4 

7.  0 DISPLAY  (X) 

8.  0 L0="THE  VALUE  OF  X(l)  IS" 

9.  0 L1="L1  IS  A 55  CHARACTER  LABEL;  ITS  DISPLAY 

TAKES  ONE  LINE* 

10.0  DISPLAY  (L0,X(1)) 

11.0  DISPLAY  (LI) 

12.0  DISPLAY  (LO,  X(l),  X) 

13.0  DISPLAY  (LO,  LO,  LO,  LO) 


Output  from  User 
Function  Execution: 


irif  nr  ‘fi) 

Ll  13  A 5‘>  CKA^ACTrf'  LAL'hLt  IKS  UIS^LAY  TAKKS  OM.  LT'E 
TMC  VALHf;  OF  X(ij  IS  UfrV*:i)0C 

a.i«o:!‘VAn 

The:  Vui.i.E  Op  *(l)  I^TmL  value  Of-  X(l)  ISThE  VALUE  OF  X(l?  ISTMr.  V 
allie  or  x'l)  IS 


a.o.ijao? 


PL>  Statements 
efining  a User  Function: 


1.0  VECTOR  pc  (4)) 

2.0  LABEL  (L0(20),  LI  (55)) 

3.  0 INPUT  PC) 

4.  0 INPUT  (LI) 

5.0  CREAD  (LO,  X(l)) 


ser  Function  Execution: 


Entered  by  User 
It  the  VT  Keyboard 


Punched  on  cards: 


...  1 
...  2 
...  3 
...  4 

. . . LI  IS  A 55  CHARACTER  LABEL;  ITS 
DISPLAY  TAKES  ONE  LINE  * 


Card  1:  THE  VALUE  OF  X(l)  IS 
Card  2:  1 


* Should  be  written  on  one  line. 


FIGURE  IV- 10 

EXAMPLES  OF  INPUT  AND  CREAD  STATEMENTS 
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GET  and  PUT  are  special  purpose  <1/0  statement >'s  that  enable 
the  ISPSE  user  to  access  the  temporary  direct  access  data  file  resident  on  the 
fixed  head  disk  (RF).  A detailed  discussion  of  the  file  may  be  found  in  Appendix 
B of  "Documentation  of  the  Interactive  Seismic  Processing  System  (ISPS)"(Ringdal 
et  al. , 1975).  Briefly  this  file  consists  of  2K  logical  records  of  identical  format 
where  1SK<8.  Each  record  pair  corresponds  to  one  wave-form  segment  of 
at  most  512  data  points  (memory  elements).  The  first  record  of  the  pair  con» 
tains  raw  waveform  data,  the  second  record  contains  processed  data  and  is 
displayed  as  one  trace  on  the  CRT  by  system  functions  (SELiEV,  FILTER,  SPEED 
etc. ).  (Note:  In  some  cases  a trace  may  contain  multiple  waveform  s egments. 
However,  that  situation  will  not  be  addressed  in  this  discussion. ) Each  logical 
record  also  contains  an  annotation  trailer  which  specifies  type  of  data,  source 
information,  and  processing  status. 


With  these  facts  in  mind  Section  IV-D  gives  the  general 


forms  of  GET  and  PUT  as 


GET  [<idn_int^  «variable  list» 

PUT  [j<idn_int^  «variable  list» 

where  <idn  int>  is  any  scalar  or  number  whose  value  represents  the  RF  file 
record  number  R (1<  R<16),  and  the  <variable  list>  must  contain  exactly 
two  variables,  the  first  being  a 548  element  vector  and  the  second  a 55 
character  label. 


Now  suppose  SELEV  and  FILTER  are  utilized  to  select  and 
display  K<8  traces  on  the  CRT.  and  let  K be  the  trace  number,  beginning 
with  K > 1 at  the  top  of  the  screen.  This  means  that  K waveform  segments 
will  exist  on  the  RF  file,  occupying  R = 1,  4 ...  2K  records.  Then  execu- 
tion  of  the  statement:  GETCRI  (X,  EVSTA)  with  R = 2K  will  return  the 
data  and  annotation,  associated  with  displayed  trace  R,  in  the  vector  X, 


whose  elements  and  their  contents  are  described  in  Figure  lV-11.  Also,  an 
alphanumeric  event  and  station  designation  will  be  returned  in  the  label 
EVSTA. 

The  inverse  operation  occurs  on  execution  of  the  PUTLrI] 

(X,  EVSTA)  statement.  Here  however,  the  user  must  ensure  that  X and 
EVSTA  are  properly  initialized  before  the  PUT  statement  is  executed  to 
overwrite  trace  K = R/2.  Otherwise  that  trace  will  be  incorrectly  referenced 
by  subsequently  PERFORM'ed  system  functions  (e.  g. , FILTER) 

The  following  important  points  should  be  noted  concerning  GET 

and  PUT: 

• If  the  <variable  list>  for  GET  and  PUT  does  not  contain  the 
precise  variables  described  above,  an  execution  error  will  be 
generated  and  no  I/O  will  be  performed.  An  out-of-range 
record  number  will  produce  a similar  error. 

• Although  the  RF  file  record  number  R is  usually  even  for 
GET  and  PUT  statements,  as  described  above,  it  may  be  odd 
for  applications  involving  processing  of  data  via  user  functions, 
before  or  between  system  functions.  In  that  case,  care  must 
be  taken  that  the  raw  waveform  data  held  by  the  odd  records 
may  be  conveniently  restored,  once  overwritten.  For  example, 
it  would  probably  not  be  convenient  to  re- PERFORM  SELEV 

to  restore  the  raw  data. 

Figure  IV- 12  provides  an  example  of  GET  and  PUT  utilization, 
g.  DREAD  and  DWRIT  Statements 

DREAD  and  DWRIT  are  <1/0  statement>'s  that  enable  the 


ISPSE  user  to  automatically  perform  input  and  output  to  named  direct  access 
disk  files,  without  being  concerned  with  the  associated  systems  bookkeeping 
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Element  Description 

ofX 

Sample  Value 

(1)-C512)  HOLDS  THK  DATA  TRACE 

(513) 

SEGMENT 

1.000000 

{5l«) 

TOT  ft  OF  sees  FOR  TRACEj 

4.000G00 

(515) 

TOT  « OF  PTS  FOR  TRACE: 

2040.000 

(517) 

MAX  AOS  DATA  VALUE; 

778.0598 

(518) 

SAMPLE  RATE  (SECS): 

2.000000 

(519) 

STATION  NUMBER  (l-l5): 

3.000000 

(520) 

COMPONENT  NUMBER  (1-3): 

1.000000 

(522) 

ORG  YEAR; 

72.00000 

(523) 

CRG  (JAY: 

57.00000 

(52«) 

ORG  TIME  (SECS  IN  DAY) : 

64669.00 

(525) 

DATA  TS  (StXS  REL  ORG): 

421. 0000 

(526) 

P-WV  TS  (SECS  PEL  ORG): 

557.0000 

(527) 

S-WV  TS  (SECS  REL  ORG): 

1005.000 

(526) 

LR-^.V  TS  (SECS  REL  ORG): 

1359.000 

(529) 

LQ-WV  TS  (SECS  REL  ORG): 

1511.000 

(530) 

lR  length  (SECS): 

667.0903 

(531) 

SOURCE  LATITUDE  S(-)  : 

49.00000 

(532) 

SOiiRCE  LONGITUDE  W(-)  * 

105.0000 

(533) 

SOURCE  DEPTH  (KM): 

0.0000000 

(S3«) 

PDE  Mf): 

0. 0P00030 

(535) 

PDL  MS: 

0,0000399 

(536) 

OTHER  MB: 

5,100000 

(537) 

OTHER  hS: 

0,0000000 

(536) 

station  latitude  S(-)  : 

64,89900 

(539) 

STATION  LONGITUDE  K(-): 

-148.0050 

(5«i?) 

STA  AZIMUTH  /tV  (DEGS): 

-51.796(?0 

(541) 

STA  EOICnTRL  OIS  (DECS): 

52.96030 

(544) 

LOK  bandpass  FRE'i  (HZ); 

0,0009000 

(545) 

HIGH  bandpass  FREG  (H2)t 

13,00000 

(546) 

CHIRP  CENTER  FRE3  (HZ): 

0,4O03il03E-01 

(547) 

CHIRP  LENGTH  (SECS): 

0,0000000 

(546) 

SCALE  (nk/inch)  actual: 

0,0000000 

FIGURE  IV- 11 

DESCRIPTION  OF  VECTOR  X FOLLOWING  GET  [R]  (X,  EVSTA) 
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ISPL  StatementB  Defining  a User  Function 

1.  0 C THIS  USER  FUNCTION  RECTIFIES  DATA  TRACE  #1  @ 

1.0  VECTOR  (X(548)) 

2.0  LABEL  (EVSTA(55)) 

3.  0 GETC  22  (X,  EVSTA) 

4.  0 C IF  TRACE  HAS>  1 WAVEFORM  SEGMENT  @ 

4.  0 C THEN  ONLY  RECTIFY  THE  FIRST  SEGMENT  @ 

4.0  NPTS=  X(515) 

5.  0 IF  X(514)>=2  THEN  NPTS=512 

6.  0 1=0 

7.0  $10  CONTINUE 

8.  0 1=1+1 

9.0  xa)=&ABscxa)3 

10.  0 IF  I<=NPTS-1  THEN  JUMP  TO  $10 

11.0  PUTCa  (X,  EVSTA) 

12.0  DISPLAY  (EVSTA) 

13.  0 DISPLAY  PC) 


FIGURE  IV- 12 
USE  OF  GET  AND  PUT 
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problem.  Among  other  applications  DREAD  and  DWRIT  may  be  used  to 
communicate  parameters  and  data  between  user  functions.  According  to 
Section  IV-D  their  general  forms  are: 

DREAD  C<identifier>,<idn_int>G  «variable  li8t» 
DWRIT  Q<identifier>,<idn_int  >]1  (<variable  list» 


where  <identifier  > is  any  five  character  filename  label,  <idn_int>  is  any 
scalar  or  number  whose  value  represents  a record  number  from  1 to  100, 
and  the  <variable  list>  may  include  scalars,  vectors,  vector  elements,  and 
labels.  Each  scalar  or  vector  element  in  the  list  represents  one  memory 
element  and  the  value  stored  there.  Each  M character  label  represents  M 
memory  elements  and  the  characters  stored  there  where  M = integer  part 
C(M  + 4)/53.  Also,  each  occurrence  of  a vector  in  the  list  implies  occurrence 
of  all  the  vector's  elements.  On  execution  of  DWRIT  the  contents  of  memory 
elements  associated  with  variables  in  the  <variable  list>  are  written  across 
the  specified  record  within  the  specified  file  in  the  order  in  which  the  variables 
appear  in  the  list.  On  execution  of  DREAD,  the  inverse  operation  occurs  as 
elements  are  read  from  the  specified  record  within  the  specified  file  and  their 
contents  stored  sequentially  in  the  variables  appearing  in  the  list. 


The  following  important  points  concerning  DREAD  and  DWRIT 


should  be  noted 


As  previously  stated,  the  <identifier>  in  the  DREAD  and 
DWRIT  syntax  must  be  a five  character  label  which  contains 
a character  string  to  be  interpreted  as  a filename  during 
execution.  If  the  label  is  not  initialized  an  error  is  flagged 
and  no  I/O  is  performed.  A similiar  error  occurs  if  the  record 
number  specified  via  <idn_int>  is  outside  the  range  1-100. 


Writing  information  to  a record  of  a file  does  not  affect  infor> 
mation  in  any  other  record.  Moreover,  at  most  125  memory 


elements  may  be  read  or  written  to  any  record.  If  the 
<variable  li8t>  for  a DREAD  or  DWRIT  exceeds  125  memory 
elements  it  is  automatically  truncated  and  a warning  message 
is  provided. 

• In  order  for  any  record  within  a file  to  be  referenced  by 
DREAD,  it  must  have  been  initially  written  by  DWRIT, 
otherwise  results  are  unpredictable.  The  only  exception  to 
this  is  the  file  SPEED  PCM  created  by  the  system  function 
SPEED  and  discussed  in  Appendix  A.  Of  course,  user 
function  A may  DWRIT  a file  to  be  DREAD  by  other  user 
functions  B,  C,  D,  etc.,  as  well  as  itself. 

• Suppose  a <variable  list>  containing  W memory  elements 

is  written  to  a given  record  within  a file  and  then  a <variable 
list>  containing  R elements  is  read  from  that  file  and  record. 
Then  care  must  be  taken  that  R<  W<  125.  Otherwise  the  last 
(R  - W)>0  elements  of  the  R element  <variable  list>  will 
be  meaningless. 

• If  a disk  file  is  created  for  scratch  I/O  only,  the  user  may 

not  need  to  document  its  contents.  However,  it  is  recommended 
that  all  permanent  files  built  via  DREAD  and  DWRIT  be  docu- 
mented as  to  their  name  and  contents.  This  documentation  may 
be  maintained  in  a separate  file. 

Figure  IV- 13  illustrates  the  use  of  DREIAD  and  DWRIT. 

h.  PLOT,  PLOTP,  and  PLOTX  Statements 

The  ISPSE  user  may  graphically  display  vectors  by  means  of 
the  <1/0  statement>'s  PLOT,  PLOTP,  and  PLOTX.  The  CRT  display  re- 
sulting from  the  use  of  each  operator  consists  of: 
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ISPL  Statements  Defining  a User  Function 


CO 

I 

> 

U 

ta 

t) 

a 


IV- 35 


FUNCTIONS  UTILIZING  DREAD  AND  DWRIT 
(PAGE  1 OF  2) 


ISPL  Statements  Defining  a User  Function 
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• PLOT  - a line  plot  of  ordered  pairs  of  X and  Y values. 

• PLOTP  - a point  plot  of  ordered  pairs  of  X and  Y values. 

• PLOTX  - a line  plot  of  Y values. 

The  X axis  is  displayed  horizontally  and  the  Y axis,  vertically.  These  state- 
ments provide  three  significant  advantages  over  similar  FORTRAN  call 
statements,  in  that  they: 

• allow  one  or  more  optional  operands  to  be  supplied  by  the  user. 

• perform  automatic  execution  time  checking  of  the  number  of 
arguments,  the  operand  types  (i.  e.  scalar,  vector,  or  label), 
and  the  vector  lengths. 

• allow  the  user  to  interactively  modify  the  plot  scale  factor, 
and  to  generate  hard  copies. 

The  BNF  generalized  format  for  these  statements  is  the  oper- 
ator name  followed  by  (<variable  list>).  Specifically,  the  format  of  each 
statement  is: 

PLOT  pc,  Y,  N [ ,XLAB[,YLABl]  ) 

PLOTP  pc,  Y,  nI,xlab[,ylabI,int]11  ) 

PLOTX  (Y,  nI,XLAB1) 

where  the  optional  arguments  are  enclosed  in  brackets,  [ ] . The  arguments 
are  described  below: 

X - a vector  containing  the  X values. 

Y - a vector  containing  the  Y values. 

N - a scalar  vdiose  value  is  the  number  of  points  to  be 
plotted. 

XLAB-  a label  containing  a character  string  that  is  displayed 
at  the  bottom  center  of  the  graph. 
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YLAB  - a label  containing  a character  string  that  is  displayed 
at  the  left  center  of  the  graph. 

INT  - a vector  whose  elements  are  indices  of  X and  Y,  and 

determine  the  points  at  which  the  intensity  is  increased. 

The  length  of  the  INT  vector  determines  the  initial  intensity 
of  the  plot.  If  INT  is  not  specified  in  the  <variable  li8t>,  then  all  points  are 
plotted  at  the  highest  intensity.  Each  additional  element  in  INT  reduces  the 
initial  intensity  of  the  plot.  The  values  stored  in  INT  specify  the  points  at 
which  the  intensity  is  increased,  for  that  point  and  all  subsequent  points.  No 
more  than  three  intensity  changes  are  allowed.  Therefore  INT  should  not 
be  longer  than  three  elements,  and  the  values  stored  in  INT  should  be  strictly 
increasing.  Figure  IV-14  clarifies  the  use  of  the  INT  argument. 

Warning  messages  are  displayed  whenever  too  many  arguments 
are  specified,  the  value  of  N is  greater  than  512,  or  the  length  of  either  the  X 
or  Y vector  is  less  than  N (512  if  N is  greater  than  512).  In  the  latter  two  cases, 
the  number  of  points  that  are  plotted  is  the  minimum  of  512,  the  value  of  N,  the 
length  of  the  X vector,  and  the  length  of  the  Y vector.  If  no  other  errors  are 
detected,  a graph  is  constructed.  No  plot  is  displayed  if  too  few  arguments 
are  supplied  or  if  the  argument  types  are  incorrect.  Regardless  of  any  errors, 
execution  of  the  user  function  continues  after  the  olot  statement,  because  data 
cannot  be  modified  by  plotting,  and  therefore  further  calculations  involving 
these  vectors  are  still  meaningful. 

When  a plot  operator  is  encountered  in  normal  mode,  execution 
of  the  user  function  is  halted.  At  this  time,  a keyword  menu  is  displayed  and 
the  user  may  rescale  the  plot,  generate  a hard  copy,  or  exit  from  the  plot 
statement,  and  continue  executing  the  user  fvinction. 

Finally,  when  a plot  operator,  within  a user  function,  is  con- 
tained in  a programmed  procedure,  and  this  procedure  is  PERFORM'ed  in 
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execute  mode,  the  status  of  the  blue  pushbutton  number  five  is  of  paramount 
importance.  If  the  pushbutton  light  is  on,  then  execution  of  the  procedure 
is  interrupted  and  the  keyword  menu,  which  allows  rescaling  and  hardcopy 
generation,  is  displayed.  After  the  ISPSE  user  exits  from  the  plot  operator, 
execution  of  the  programmed  procedure  continues.  If  the  pushbutton  light  is 
off,  a hard  copy  of  the  display  is  automatically  created,  and  procedure  flow 
is  uninterrupted. 

The  user  function  in  Figure  IV- 14  illustrates  typical  usage  of 
the  plot  <1/0  statement >'s. 

i.  QSTAT,  XSTAT,  and  DSTAT  Statements 

These  <numerical  operator  >'s  are  especially  designed  to  per- 
form multivariate  event  discrimination  based  on  mean  detectabilities  as  de- 
scribed by  Sax  (1976).  A detailed  example  of  the  entire  solution  to  this  problem 
is  presented  in  Appendix  A.  Equivalent  operators  could  be  programmed  using 
ISPL,  but  by  including  them  as  high  level  vector  processing  statements  in 
ISPL,  a substantial  reduction  in  execution  time  is  achieved. 

These  operators  access  a disk  file  containing  event  discriminant 
values  that  are  calculated  via  the  system  function,  SPEED.  Event  sequence 
numbers  from  the  DPSCAN  event  list  are  input  from  the  card  reader,  one  event 
number  per  card.  These  operators,  like  the  plot  statements,  perform  auto- 
matic execution  time  checking  of  the  number  of  argviments,  the  operand  types, 
and  the  vector  lengths.  DSTAT  also  allows  specification  of  two  optional  argu- 
ments. 

The  BNF  description  of  the  <numerical  operator >'s  is  found  in 
Section  IV- D.  The  specific  form  for  each  statement  is: 


QSTAT  (NQ,  ND,  EQ,  SDQ) 
XSTAT  (NX,  ND,  EQ,  SDQ,  EDX) 


DSTAT  (NE,  ND,  EQ,  SDQ,  EDXl,  EPl  ,(EDX2,  EPZ]) 


where  the  optional  argxunents  are  enclosed  in  brackets,!  ]. 

QSTAT  calculates  mean  and  standard  deviation  vectors,  EQ 
and  SDQ,  of  event  discriminants  obtained  from  the  disk.  The  mathematical 
equations  for  these  functions  are: 


j = 1,  ND 


s^j-noTtV  f 


j = 1,  ND 


where  ND  is  the  number  of  discriminants  per  event,  D is  a matrix  of  discriminant 
values,  EQ  is  the  mean  value  vector  and  SDQ  is  the  standard  deviation  vector 
of  the  discriminants  over  a sample  population  of  NQ  earthquakes. 


The  XSTAT  operator  calculates  the  mean  detectability  vector 
for  a set  of  presumed  explosions  from  a given  region.  Precisely,  the  oper- 
ator is  described  by: 


EDX. 

J 


1 


NXeSDQ. 

J 


EQ. 

J 


j = 1,  ND 


U J 

where  the  mean  value  vector,  EQ,  and  the  standard  deviation  vector,  SDQ, 
are  the  outputs  from  the  QSTAT  operator.  NX  is  the  number  of  presumed  ex- 
plosions in  the  specified  region.  As  before,  ND  and  D are  the  number  of  dis- 
criminants and  the  matrix  of  actual  discriminant  values.  The  output,  EDX, 
is  the  mean  detectability  vector  for  that  region. 


New  events  are  then  projected  onto  the  mean  detectability 
vector  of  a region  for  classification  by  the  analyst.  This  is  done  with  the 
DSTAT  statement.  Two  projections  can  be  calculated  at  the  same  time  by 
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utilizing  the  optional  arguments,  EDX2  and  EP2.  Of  course,  in  this  case  the 
XSTAT  operator  must  be  used  twice  to  form  the  mean  detectability  vectors  for 
both  regions.  EDXl  and  EDX2  are  the  mean  detectability  vectors  for  region 
one  and  two,  respectively.  EPl  and  EP2  are  the  projections  onto  these  vectors. 
The  equation  describing  the  DSTAT  operator  is: 


EP.  = 
1 


EDX.(D..  - EQ.) 

J— i] L. 

SDQ. 

J 


i = 1,  NE 


where  EP  is  the  projection  vector  and  NE  is  the  total  number  of  events,  includ- 
ing the  sample  earthquake  population,  the  presumed  explosion  population,  and  the 
events  to  be  classified.  The  other  parameters  have  all  been  described  above. 


An  example  of  a user  function  that  utilizes  these  operators  is 
discussed  in  Appendix  A.  The  event  sequence  numbers  input  from  cards  must 
be  in  the  range,  1 - 100,  or  an  error  message  is  displayed.  Undefined  re- 
sults are  produced  if  the  discriminants  for  a particular  event  are  not  cal- 
culated via  SPEED  prior  to  using  QSTAT,  XSTAT,  or  DSTAT.  Unlike  the 
plot  statements,  any  error  in  the  argument  specification  or  event  sequence 
numbers  causes  an  immediate  termination  of  the  user  function. 


6.  Semantic  Error  Analysis 

On  receiving  a #S  edit  command  (Section  IV-B),  the  system 
makes  a second  pass  over  the  ISPL  statements  that  have  been  accepted  as 
syntactically  valid  for  the  user  function  currently  being  .COMPILED.  Be- 
sides generating  and  saving  a matrix  of  interpretable  instructions  for  the  user 
function,  #S  also  performs  an  analysis  to  ensure  that  no  semantic  ambiguities 
exist  in  the  program  as  a whole.  If  any  errors  are  flagged  the  user  must  correct 
them  before  the  system  will  save  the  function  and  mark  it  . COMPILED. 

Some  semantic  considerations  are  discussed  in  the  points  which  follow: 
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A variable  may  be  declared  only  once  in  a declaration  state- 
ment. Re-occurrence  of  a variable  in  the  same  or  another 
declaration  statement  is  ignored  and  only  the  initial  declaration 
applies.  Note;  this  is  the  only  semantic  error  which  does  not 
prevent  the  user  function  from  being  successfully  .COMPILE'ed. 

Vector  and  label  lengths  must  be  at  least  1 element  and  1 
character  respectively.  Zero  (0)  length  allocations  are  not 
accepted  and  produce  a semantic  error  message. 

All  declaration  statements  must  appear  at  the  beginning  of  a 
user  f\mction  and  before  any  executable  statements.  Failure 
to  observe  this  ordering  will  cause  semantic  errors  to  be 
flagged. 

Recall  from  Section  IV-C-3  that  0<Ag<  90  and  0<A^j^<1957 
are  requirements  for  acceptable  declaration  of  vector  and  labels, 
where  Ag  is  the  number  of  scalars  available  for  use  and 
is  the  number  of  user  memory  elements  allocated  for  declared 
vectors  and  labels.  A semantic  error  diagnostic  will  be  gen- 
erated if  these  allocation  requirements  are  not  satisfied. 

Duplicate  or  non-existent  label  statements,  or  more  than 
25  unique  label  statements  in  a user  function  will  result  in 
semantic  error  messages. 

Utilization  of  more  than  124  unique  numbers  or  more  than~900 
total  characters  for  <label  constant>'8  will  produce  a semantic 
error  message. 

The  occurrence  of  a label  in  an  arithmetic  expression  or 
arithmetic  assignment  statement,  the  occurrmce  of  a scalar. 
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vector,  or  vector  element  in  a text  assignment  statement,  the 
occurrence  of  a subscripted  label  or  scalar  in  any  executable 
statement,  the  occurrence  of  a vector  element  whose  subscript 
is  a vector  or  label  in  any  statement,  or  the  occurrence  of 
an  unsubscripted  vector  in  an  arithmetic  expression  or  arith- 
metic assignment  statement  will  produce  one  or  more  semantic 
error  messages  following  each  violation. 

A user  function  must  contain  at  least  one  executable  statement, 
otherwise  it  will  not  be  successfully  .. COMPILE 'd. 

The  bracketed  item  in  a GET  or  PUT  statement  must  be  a scalar 
or  number,  otherwise  semantic  error  messages  will  be  pro- 
duced. 

The  first  of  two  bracketed  items  in  a DREAD  or  DWRIT  state- 
ment must  be  a 5 character  label  and  the  second  must  be  a 
scalar  or  number:  otherwise  semantic  error  messages  will  be 
produced. 

In  general,  variables  should  be  initialized  via  assignment  or 
I/O  statements  before  they  are  used  in  other  statements,  other- 
wise semantic  errors  may  be  generated. 


D.  BNF  DESCRIPTION  OF  ISPL 

The  following  is  a BNF  description  of  ISPL  syntax.  No  semantic 
considerations  (e.  g. , magnitude  limitations  for  numbers,  vector  lengths, 
variable  list  lengths,  arithmetic  expression  extents,  etc. ) are  addressed  in 
this  sub- section.  The  reader  should  refer  to  Section  IV-C  for  this  information. 
Note  also  that  embedded  blanks  in  ISPL  syntax  are  ignored. 


IV.45 


<blank>:}  a the  ASCII  character  (space) 

<digit>::  = 0|l  |2|  3|...  |9 
<letter>;:  = A|  B|  C j D|  . . . | Z 
<letter_digit>:!  = <letter>  | <dig?t> 

4 

<identi£ier>:;  = <letter>|  <letter ><letter_digit>j 
<integer>;;  = <digit>j 

<idn_int>:;  = <identifier>|  <integer> 

7 7 K 7 

<real>:;  = <digLt>j  .|  . <digit>j  | <’digit>  ^ .<digit>j^^j 

2 21  2 
<exponent>::  = E<digit>j  |E+<digit>j  |E-<digit>j 

<number^::  = <integer>|  <real>|  <real>  <exponent> 

<declaration  U8t>:;  = <identifier>«integer>)|<identifier>«integer», 

<declaration  Ust> 

<declaration  8tatement>::  = LABEL«declaration  li8t»|  VECTOR «declaration 

U*t» 

^vector  element^jt  * ^identifiers  «nuniber^  )j  ^ideiitifler^«identifier^) 

<variable>;:  = <identi£ier>  j <vector  elements 

<variable  llstS;;  = <variableS|<variableS,  <variable  lists 

< mathematical  functions::  = fcSINj  &COS|  8cTAN(  StATNj&EXPj  &LNN|8tLiOG  | 

IcSQrI  bABSl&PlM 

<add_8ubtractS::  ® +1“ 

<multlply__divideS::  = *}/ 
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<prlin«ry>::  = <number>|-<number>|<vari»ble>| -<variable>j  <mathemat- 
ical  function>[<'arithmetic  expre8sion>]| -<mathematical 
function>[<,arithmetic  expres8ion>]  | (<arithmetic  expression »| 
-«arithxnetlc  expres8ion» 

<factor>::  = <primary>|  facto  r>A<primary> 

<term>;:  = <factor>|  <tenn>  <multiply_divldeXEactor> 

<arithxnetic  expression>::  = <tenn>|  <arithmetic  expre8sion>  <add_subtract> 

<term> 

<label  constant>::  ^ "^character  string>"l  "<chatacter  8tring> 

<character  8tring>:;  = <character>|  <character>  <character  string> 
<character>::  = any  ASCII  character 

<a8slgnment  8tatement>::  = < identifier >=<label  conatant> I <variable> > 

<arithmetic  expression> 

4 

<statement  label>::  = $<digit>j 

<branch  statement = JUMP<blank>TO<blank>  <statement  label > 

< label  statement>::  = <8tatement  label>  <blank>CONTINUE 

^I/O  8Utement>;;  = DISPLAY «variable  list »| INPUT «varlable  list»| 

CREAD«var table  Ust»|  PLOT « variable  llst»| 

PLOTXK variable  lls1>  )|PLOTP«varlable  li8t»  | 

GET  l<idn__lnt>l  «variable  list»l 
PUT  «idn__int>J  «varlable  llst»| 

DREAD[< identifier >,  <idn__lnt>J(<variable  list»j 
DWRIT« Identifier >,  <ldn__int>]  «varlable  list»| 

<iumerical  operator>!s  » QSTAT(<varlable  Ust>)|xSTAT(<varlable  list»  | 

DSTAT«varUble  li8t» 
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SECTION  V 


i: 

li 


CONSTRUCTION  OF  STANDARD  SEISMIC  PROCESSING 
TASKS  VIA  PROGRAMMED  PROCEDURES 


I 

This  section  discusses  the  ISPSE  programmable  feature  and 
the  construction  and  maintenance  of  standard  seismic  processing  tasks  via 
the  creation,  programming,  and  execution  of  named  procedures.  Sub- 
section A reviews  procedure  creation  and  the  ordering  of  processing  modules 
and  INTERUP's  within  a procedure.  Subsection  B describes  the  details  of 
programming  a procedure  including  the  structure  of  a procedure's  program, 
system  states,  user  decisions,  alphanumeric  input,  and  valid  program  ter- 
mination. Subsection  C describes  the  details  of  executing  a programmed  pro- 
cedure, including  interrupts  in  execution,  manual  branching,  and  auto- 
matic looping.  Subsection  D provides  a scenario  for  the  programming  and 
execution  of  a sample  procedure. 

A.  PROCEDURE  CREATION 

As  noted  in  Section  II,  a procedure  consists  of  an  ordered 
set  of  system  fxmctions,  user  functions,  and  INTERUP's  to  be  executed  with- 
in the  ISPSE  console  environment.  Procedures  are  created  and  maintained 
by  the  ISPSE  command  language  (Section  III-B).  They  provide  a mechanism 
for  the  user  to  assemble  specific  processing  modules  (system  functions  and 
user  functions)  needed  to  accomplish  a seismic  processing  task.  It  is 
recommended  that  the  user  comment  a procedure  as  to  its  purpose. 

When  a saved  procedure  is  PERFORM 'ed  by  name  with  the 
system  in  NORMal  mode,  the  associated  modules  are  executed  in  the  order 
specified.  Recall  that  within  system  functions,  processing  options  are 
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•elected  interactively  from  displayed  keyword  menus  by  hitting  the  corres- 
ponding function  keys  (numbers  1 - 6)  on  the  CRT  keyboard.  On  encountering 
an  INTERUP  (i.  e. , . PERFORM  INTERUP)  during  procedure  execution  the 
system  will  pause  and  permit  the  user  to  interactively  re-start,  continue, 
or  stop  the  procedure  by  hitting  designated  keys,  number  4,  5,  or  6 respect- 
ively. Re-start  causes  a branch  to  the  nearest  preceding  .PERFORM  INTERUP 
In  the  sequence  or  to  the  beginning  of  the  procedure  if  no  preceding  . PERFORM 
INTERUP  exists.  Continue  resumes  execution  at  the  next  sequence  number. 

Stop  terminates  procedure  execution. 

The  inclusion  of  INTERUP's  in  a procedure  serves  two  main 
purposes  which  may  be  stated  as  follows: 

• The  occurrence  of  an  INTERUP  before  and  after  a processing 
module  in  a procedure  simplifies  re-execution  of  that  module 
in  the  event  of  user  processing  errors.  Hence  the  first  advan- 
tage of  INTERUP's  is  recoverability.  An  example  of  this  is 
shown  in  Figure  V-1. 

• The  occurrence  of  an  INTERUP  before  and  after  a sequence 
of  modules  in  a procedure  enables  interactive  processing  in 
which  that  sequence  may  be  executed  several  times  by  branch- 
ing. One  such  application  is  the  case  where  the  first  and  last 
commands  in  a procedure  are  . PERFORM  INTERUP.  This 
configuration  permits  the  user  to  establish  an  autoloop  to 

be  discussed  later  in  this  section.  Briefly,  a programmed  pro- 
cedure configured  to  autoloop  may  be  automatically  executed 
N times,  where  N is  specified  during  programming.  Hence 
the  second  advantage  of  INTERUP's  is  repetitive  processing. 

An  example  of  this  is  shown  in  Figure  V-1. 
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PROGRAMMING  PROCEDURES 


Under  ISPSE,  a procedure  m ay  be  programmed  to  perform  a 
standard  seismic  processing  task  by  instructing  the  system  to  automatically 
record  the  sequence  of  processing  options  selected  interactively  from  key- 
work  menus  during  the  execution  of  each  system  function  and  INTERUP  con- 
tained in  the  procedure.  The  mechanics  for  initiating  the  programming  of  a 
procedure  are  discussed  in  Section  III-B-5  and  will  not  be  addressed  here. 
Instead,  the  objective  of  this  subsection  is  to  define  the  program  for  a pro- 
cedure in  terms  of  its  structure  and  to  provide  a set  of  rules  for  successfully 
programming  the  procedure.  In  this  manner,  the  reader  should  gain  an  under- 
standing of  the  options  supported  by  the  ISPSE  programmable  feature. 

1.  Program  Structure 

The  program  for  a procedure  is  automatically  saved  as  a 
disk- resident  data  structure  which  may  be  referenced  at  any  time  by  the  pro- 
cedure's <user  name>.  The  program  consists  of  four  sub- structures,  namely: 

• A Procedure  Matrix  (PM):  the  sub- structure  in  which  user 

decisions  (defined  below)  are  sequentially  recorded  when  pro- 
gramming a procedure  and  from  which  decisions  are  retrieved 
when  executing  a programmed  procedure.  The  PM  is  partion- 
ed  by  the  modules  and  INTERUP' s contained  in  the  procedure. 

a A Procedure  Function  Address  Table  (PFAT):  The  sub- struc- 

ture which  defines  the  partitioning  of  the  PM.  More  specifically, 
if  a procedure  contains  processing  modules  and  INTERUP' s 
numbered  1 through  N then  the  PFAT  will  contain  N values, 
PFATj , i » 1,  N,  such  that  PFAT^  is  the  PM  index  (element) 
at  which  decisions  for  processing  module  or  INTERUP  i begin. 
PFAT^  = 0 implies  no  decisions  exist  for  module  i in  the  PM. 
This  is  always  the  case  for  user  functions. 
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• A Numeric  Input  Matrix  (NIM):  The  sub- structure  in  which 
alphanumeric  input  (defined  below)  is  sequentially  recorded 
when  programming  a procedure  and  from  which  that  input  is 
retrieved  when  executing  a programmed  procedure.  The  NIM 
is  partitioned  by  modules  and  INTERUP's  contained  in  the 
procedure. 

• A Numeric  Function  Address  Table  (NFAT);  The  sub- structure 
which  defines  the  partitioning  of  the  NIM.  More  specifically, 

if  a procedure  contains  processing  modules  and  INTERUP's 
numbered  1 through  N then  the  NFAT  will  contain  N values, 
NFAT^,  i = 1,  N,  such  that  NFAT.  is  the  NIM  index  (element) 
at  which  alphanumeric  input  for  module  i begins.  NFAT^  = 0 
implies  no  alphanumeric  input  exists  for  module  i.  This  is 
always  the  case  for  user  functions  and  INTERUP's. 

Figure  V-2a  summarizes  the  role  of  these  sub- structures 
in  supporting  the  ISPSE  programmable  feature.  Figure  V-2b  shows  a sample 
listing  of  a procedure  and  the  program  associated  with  that  procedure. 

The  discussed  sub -structures  define  a procedure's  program 
and  are  collectively  called  the  program  matrices.  Together  with  the  proce- 
dure itself  they  have  a two-fold  purpose: 

• They  unambiguously  define  a standard  seismic  processing  task 
in  a fashion  which  the  ISPSE  can  understand. 

• They  may  be  referenced  by  the  user  to  determine  the  sequence 
of  a processing  options  (see:  User  Decisions,  below)  perform- 
ed by  the  procedure.  That  is,  the  user  may  manually  perform 
the  decisions  contained  in  the  PM  one  at  a time  with  the  system 
in  NORMal  mode  and  observe  processing  flow.  This  technique 
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(Creation  and  programming  of  the  procedure  TESTB) 
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LIST  8PECT 

1.0  ,PEHF  INTEPUP 
?,0  ,PERF  8ELEV 

8.0  .PERF  INTEPUP 

4.0  .PERF  FILTER 

5.0  .PERF  INTERUP 


THIS  PROCEDURE  COMPUTES  t DISPLAYS  THE  POWER 
SPECTRUM  FOR  A <«IP2R  PT  LONG  PERIOD  WAVEFORM 
WITH  AN  'INTERRUPT'  IN  FILTER  FOR  OPTIONAL 
HARO  COPY,  AN  AUTOLOOP  HAS  REEN  ESTABLISHED 
BUT  STEP  5 IS  'INTERRUPTED'  FOR  MANUAL  EXIT. 


LIST  SPECT* 

PROCEDURE  MATRIX 

31  -99  4 I -R9  5 5 6 S a 5 

3 5-160 

NUMERIC  input  MATRIX 

T T T 

B (^7S00000E«02  e,2dO8>0iddE*dl 

PROCEDURE  FUNCTION  ADDRESS  TABLE 
1 2 10  It  20 

NUMERIC  function  ADDRESS  TABLE 
0 10  6 0 


0.2000000Ef01 

0.2000000Et01 


FIGURE  V-2b 

SAMPLE  USTING  OF  A PROCEDURE  AND 
ITS  ASSOCIATED  PROGRAM 
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is  especially  useful  when  re-programming  a programmed 
procedure.  In  fact,  it  is  always  good  practice  to  experiment 
with  a procedure  in  NORMal  mode  before  using  PRGM  mode 
to  program  the  procedure. 

2.  System  States 

\Vhen  the  ISPSE  is  in  PRGM  mode  and  a procedure  is  PER- 
FORMed  the  user  is  said  to  be  programming  the  procedure.  During  this  time 
the  system  may  be  in  one  of  two  states,  'continue'  or  'interrupt',  displayed 
on  the  CRT  as  'CONTINUE  PRGM'  or  'INTERRUPT  PRGM'  respectively.  The 
main  purpose  of  these  states  is  to  control  the  recording  of  user  decisions  in 
the  PM  and  alphanumeric  input  in  the  NIM.  The  discussion  of  user  decisions 
and  alphanumeric  input  which  follow  should  clarify  these  concepts. 

• 

3.  User  Decisions 

a.  Functional  Description 

User  decisions  are  actions  taken  by  the  user  at  the  CRT 
keyboard  or  in  some  cases,  actions  taken  by  the  system  for  the  user.  They 
control  the  programming  of  a procedure  and  may  be  categorized  as  follows: 

• Within  a system  function,  selection  of  a processing  option 

from  a displayed  keyword  menu  by  hitting  the  corresponding 
function  key  (number  1,  2,  3,  4,  5,  or  6)  on  the  CRT  keyboard. 
When  the  system  is  in  'continue'  state  that  number  is  recorded 
in  the  PM,  otherwise  it  is  n<i»  recorded.  In  either  case  the 
system  then  responds  as  if  in  NORMal  mode. 

• Selection  of  the  re-start,  continue,  or  stop  option  at  an  INTERUP 
by  hitting  the  corresponding  function  key  (number  4,  5,  or  6)  on 
the  CRT  keyboard.  When  the  system  is  in  'continue'  state  that 
number  is  recorded  in  the  PM.  Otherwise,  a 0 is  recorded  in- 
stead of  the  number  and  the  system  reverts  to  'continue'  state.  In 
either  case  the  system  then  responds  as  if  in  NORMal  mode. 
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• Hitting  the  function  key  or  'C  on  the  CRT  keyboard.  These 

are  called  special  decisions.  To  understand  them  note: 

- Within  a system  function,  processing  is  guided  by  key- 
word menus:  each  menu  is  assigned  a unique  negative  integer 
called  a node;  the  node  is  displayed  with  the  menu. 

An  INTERUP  is  assigned  the  node  0. 

With  these  facts  in  mind  the  following  rules  apply: 

- If  the  'I'  function  key  is  hit  the  system  state  changes  to 
'interrupt':  this  permits  alternate  decisions  which  are  not 
recorded  in  the  PM. 

If  the  'C  function  key  is  hit  with  the  system  in  'interrupt' 
state  two  things  happen;  first  the  system  state  changes  to 
'continue':  second  the  displayed  node  value  is  recorded  in  the 
PM  (unless  the  last  decision  before  the  'C  was  an  'I'  or 
resulted  from  a dynamic  cursor  option  described  below). ' 

a Within  a system  function,  if  the  state  is  'continue'  and  an  option 

enabling  a dynamic  cursor  or  starting  dynamic  cursor  movement 
is  selected,  then  the  state  automatically  changes  to  'interrupt'. 
An  example  of  this  is  the  time  window  selection  process  in 
SELEV. 

a If  the  user  exits  from  a system  function  when  the  state  is 

'interrupt'  three  things  happen;  first  the  state  automatically 
changes  to  'continue';  second,  the  node  assigned  to  the  menu 
from  which  the  exit  occured  is  recorded  in  the  PM;  third  the 
number  6 (exit  option)  is  recorded  in  the  PM. 

a If  the  user  exits  from  SELEV  the  number  6 will  automatically 
be  recorded  in  the  PM.  This  is  for  system  reference  only  and 
should  be  ignored  by  the  user. 


. I 
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b. 


Decisions  at  INTERUP's 


Having  described  the  types  of  user  decisions  that  may 
be  exercised  during  the  programming  of  a procedure,  some  special  applications 
involving  decisions  at  INTERUP's  will  now  be  presented: 

Referring  to  Figure  V-1,  assume  that  PROCl  is  being  program- 
med, all  decisions  have  been  made  for  SELEV,  and  the  system  is  paused  at 
step  2 (.  PERFORM  INTERUP)  awaiting  another  decision;  then  the  user  may  do 
one  of  the  following: 

• Select  the  re-start  option  (number  4)  to  re-program  SELEV 
This  means  all  previous  entries  for  SELEV  in  the  PROCl 
program  matrices  will  be  replaced  by  new  entries.  In  general, 
re-programming  within  a procedure  means: 

programming  through  L steps  of  the  procedure. 

branching  to  step  J<L  via  re-starts  at  INTERUP's. 

- re-executing  all  modules  and  INTERUP's  from  step  J 
through  step  L. 

- replacing  all  previous  entries  for  those  modules  and 
INTERUP's  in  the  procedure's  program  matrices  with 
new  entries. 

• Make  two  decisions:  first,  hit  the  function  key  '!'  to  change  the 
system  state  to  'interrupt';  second,  select  the  re-start,  con- 
tinue, or  stop  option  by  hitting  the  corresponding  function  key 
(number  4,  5,  or  6).  Result:  system  state  changes  back  to 
'continue*  and  a 0 node  value  is  recorded  in  the  PM  for  the 
INTERUP  at  step  2.  That  INTERUP  is  then  called  'interrupted'. 
In  general  any  INTERUP  in  a procedure  may  be  'interrupted*. 
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During  the  execution  of  a programmed  procedure  (MODE=EXEC) 
'interrupted'  INTERUP's  permit  manual  branching  because 
they  behave  as  if  the  system  were  in  NORMal  mode 


Select  the  continue  option  (number  5).  Result:  a 5 is  recorded 
in  the  PM  for  the  INTERUP  at  step  2.  In  this  case  the  INTERUP 
will  be  serviced  from  the  PM  when  MODE^EXEC. 


Again  referring  to  Figure  V-1  recall  that  PROC2  is  configured 
to  establish  an  autoloop  because  the  first  and  last  steps  are  . PERFORM 
INTERUP.  Assxime  that  PROC2  is  being  programmed,  all  decisions  have  been 
made  through  step  3,  and  the  system  is  paused  at  step  4 (.  PERFORM  IN- 

TERUP) awaiting  another  decision;  then  the  user  may  proceed  as  follows: 


Select  the  re-start  option  (number  4).  Result:  a 4 is  record- 
ed in  the  PM  for  the  INTERUP  at  step  4;  the  system  branches 
to  the  INTERUP  at  step  1. 


Select  the  stop  option  (number  6).  Result:  the  system  exits  and 
requests  a value  for  the  autoloop  counter  N where  11.N  <99999. 


Enter  a value  for  N followed  by  a carriage  return.  Result: 
if  1^N199999  the  system  records  the  quantity  N-<-6  in  the  PM 
for  the  INTERUP  at  step  1 and  returns  control  to  the  Inter- 
preter Supervisor.  Otherwise  another  value  for  N must  be 
entered. 


In  general,  the  user  may  establish  an  autoloop  for  any  pro 
cedure  whose  first  and  last  steps  are  INTERUP's  by: 


programming  (re -programming)  through  the  next  to  last  step^ 


branching  to  step  1 via  a sequence  of  one  or  more  re-starts 


- lelccting  the  stop  option  to  exit  from  the  procedure, 

entering  a value  for  the  autoloop  counter. 

Note:  the  autoloop  counter  specifies  the  number  of  times  to 
repeat  the  procedure  during  execution  (MODE'EXEC). 

4.  Alphanumeric  Input 

When  programming  a procedure,  system  functions  frequently 
require  the  user  to  enter  alphanumeric  information  in  response  to  selected 
processing  options.  That  alphanumeric  information  (except  for  user  comments) 
is  automatically  recorded  in  the  NIM  if  and  only  if  the  system  is  in  'continue' 
stote.  Moreover,  permissible  alphanumeric  entries  may  be  categorised  as 

follows: 

• A valid  <number>  as  defined  in  Section  IV-D.  The  corresponding 
value  is  recorded  in  the  NIM. 

• The  character  string  'Y'  or  'YES'  (in  response  to  a question). 

A 'Y'  is  recorded  in  the  NIM. 

• The  character  string  'N'  or  'NO'  (in  response  to  a question). 

An  'N'  is  recorded  in  the  NIM. 

• The  null  or  default  entry  (i.  e. , a carriage  return).  A 'B'  for 
blank  is  recorded  in  the  NIM. 

• The  character  string  'TIS' <pumber>.  The  system  accepts  the 
number  but  records  a 'T'  in  the  NIM.  This  designates  that 
the  value  will  be  requested  from  the  keyboard  instead  of  re- 
trieved from  the  NIM  when  the  procedure  is  executed  (MODE> 
EXEC). 

• The  character  string  'di' <number>.  The  system  accepts  the 
number  but  records  a 'C  in  the  NIM.  This  designates  that 
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the  value  will  be  read  from  a card  in  the  card  reader  instead 
of  retrieved  from  the  NIM  when  the  procedure  is  executed  (MODE 
=EXEC). 


A re-entry  of  any  alphanumeric  entry  noted  above  if  flagged 
invalid  by  the  system. 


Valid  Program  Termination 


In  order  for  the  system  to  designate  a procedure  as  programmed 
to  save  the  procedure's  program  matrices,  and  to  display  the  message  "PRO- 
GRAM OK  FOR  PROCEDURE  <user  name>",  the  program  must  be  terminated 
by  one  of  the  following  techniques: 


If  the  first  step  in  the  procedure  is  an  INTERUP  then  the  last 
step  must  be  an  INTERUP  and  the  program  is  terminated  in 
the  manner  described  for  establishing  an  autoloop  (Section 
IV-B-3).  If  desired,  a minor  variation  on  that  technique  is  per 
mitted,  that  is,  the  INTERUP  at  the  last  step  and/or  step  1 
may  be  'interrupted'  to  establish  a manual  rather  than  an  auto- 
matic loop. 


To  change  the  autoloop  counter  N of  a programmed  procedure 
complete  reprogramming  is  not  required.  One  need  only 
PERFORM  the  procedure  with  MODE=PRGM  and  immediately 
exit  at  step  1 via  key  number  6.  Then  only  the  first  PM  entry 
(-N+6)  will  be  modified  while  all  other  program  matrices  re- 
main undisturbed. 


If  the  first  step  in  a procedure  is  not  an  INTERUP  then  the  pro- 
cedure is  terminated  by  exiting  at  the  last  step  in  the  procedure 
If  the  last  step  is  a . PERFORM  <system  function>  then  the 
system  must  be  in  'continue'  state  before  the  exit  occurs. 


Termination  by  techniques  other  than  those  described  above 
will  result  in  loss  of  all  recorded  user  decisions  and  alphanumeric  input  for 
the  procedure.  Complete  re- programming  would  then  be  required. 

C.  EXECUTING  PROGRAMMED  PROCEDURES 

Under  ISPSE,  a programmed  procedure  may  be  executed  to 
perform  a standard  seismic  processing  task  by  instructing  the  system  to  re- 
trieve the  processing  sequence  from  the  procedure's  program  matrices.  Re- 
call (Section  V-B)  that  the  processing  sequence  consists  of  user  decisions  and 
alphanumeric  input  recorded  in  the  matrices  when  the  procedure  was  programmed. 
The  mechanics  for  initiating  the  execution  of  a programmed  procedure  are  dis- 
cuss^ in  Section  IIl-B-5  and  will  not  be  addressed  here.  Instead,  the  objective 
of  this  subsection  is  to  provide  a set  of  operational  rules  for  programmed  pro- 
cedure execution. 

1.  Interrupts  in  Execution 

When  ISPSE  is  in  EXEC  mode  and  a programmed  procedure  is 
PERFORMed  the  user  is  said  to  be  executing  the  programmed  procedure. 

During  execution  the  system  automatically  retrieves  user  decisions  from  the 
PM  to  serve  as  menu  selections  within  system  functions  and  at  INTERUP's. 
Likewise  requests  for  alphanumeric  input  are  serviced  from  the  NIM.  Thus, 
procedure  execution  will  continue  without  the  need  for  user  intervention  unless 
one  of  the  following  should  occur: 

• The  system  encounters  a node  (<0)  value  in  the  PM. 

• The  system  encounters  a 'T'  or  'C'  in  the  NIM. 

Each  of  these  conditions  cause  an  Interrupt  in  execution  and 
are  discussed  individually  below: 
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Node  Interrupt 


Recall  (Section  V-B)  that  during  the  progranuning  of 
a procedure,  node  values  are  recorded  in  the  PM  when  the  system  state  changes 
between  'continue'  and  'interrupt'  state.  Conversely,  the  retrieval  of  a node 
value  from  the  PM  during  the  execution  of  a programmed  procedures  changes 
the  system  state  from  'continue'  to  'interrupt'.  That  is,  execution  will  halt 
at  a given  menu  and  user  intervention  is  then  required.  At  this  point  the 
following  options  exist: 


For  node  value  <0,  the  user  may  make  alternate  menu  selections 
and  numeric  entries  within  the  system  function  where  execution 
halted,  and  the  system  will  respond  as  if  in  NORMal  mode. 

If  the  user  exits  from  that  system  function  then  automatic  execu- 
tion will  resume  (from  the  PM)  at  the  next  step  in  the  procedure. 


For  node  value  =0,  the  user  may  perform  a manual  branch  by 
selecting  the  re-start,  continue^  or  stop  option.  This  is  the 
'interrupted'  INTERUP  case  discussed  in  Section  V-B- 3. 
Following  the  branch,  automatic  execution  will  resume  at  the 
appropriate  step  in  the  procedure. 


For  node  value  = node  value  of  currently  displayed  menu, 
the  user  may  hit  the  function  key  'C  to  continue.  This  resumes 
automatic  execution  and  retrieves  the  next  PM  entry  to  serve 
as  the  menu  selection.  If  the  node  value  of  the  currently  dis- 
played menu  ^ the  node  value  which  caused  the  halt  in  execution, 
the  'C  is  ignored. 


'T'  or  'C  Interrupt 


When  a 'T'  or  'C  is  retrieved  from  the  NIM  during  the  ex 
ecution  of  a progranuned  procedure,  the  system  will  pause  and  accept  a 


<n\xmber>  from  the  CRT  keyboard  or  the  card  reader,  respectively.  Where 
as  these  numeric  input  options  are  incorporated  into  a procedure  during  pro- 
gramming (Section  V-B-4),  the  user  should  be  prepared  to  enter  the  infor- 
mation via  the  designated  device  (i.  e. , by  monitoring  the  CRT  console  or 
stacking  cards  in  the  reader).  Following  the  entry,  automatic  execution  of 
the  procedure  is  resumed. 

2.  Execution  of  the  Autoloop 

Recall  (Section  V-B-3)  that  the  quantity  N+6  is  recorded  as 
the  first  PM  entry  for  a procedure  programmed  to  autoloop.  The  execution 
of  such  a procedure  is  governed  by  the  following  rulbs: 

• The  quantity  OP=N+6  is  retrieved  from  the  first  PM  entry, 
decremented  by  1,  and  re-recorded  in  the  first  PM  entry, 
each  time  step  1 is  executed. 

• If  OP>6,  then  the  INTERUP  at  step  1 is  automatically  serviced 
with  a 5,  to  continue. 

• If  OP=6,  then  the  INTERUP  at  step  1 is  automatically  serviced 
with  a 6,  to  stop,  terminating  procedure  execution  and  the 
autoloop. 

• The  PM  entry  for  the  INTERUP  at  the  last  step  in  the  procedure 
is  4 to  re-start,  and  all  other  INTERUP' s between  the  first 
and  last  step  are  ignored. 

Collectively,  these  rules  imply  that  the  procedure  will  auto- 
matically repeat  N times  when  executed  with  MODE=EXEC. 

D.  PROGRAMMING  AND  EXECUTING  A SAMPLE  PROCEDURE 

This  subsection  provided  a scenario  for  the  programming 
and  execution  of  a sample  procedure. 
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Assume  that  a.  procedure  called  SPECT  has  been  CREATEd  as 
described  in  Section  Ill-B  and  that  SPECT  consists  of  the  sequence: 

1.0.  PERF  INTER  UP.  2.  0 . PERF  SELEV,  3.  0 . PERF  INTERUP,  4.  0 . PERF 
FILTER,  and  5.  0 . PERF  INTERUP.  Further  assume  that  SPECT  has  been 
programmed  to  compute  and  display  the  power  spectra  of  selected  long- 
period  waveforms.  Then  a listing  for  SPECT  and  its  associated  program 
matrices  is  provided  in  Figure  V-3.  Note  that  boundary  lines  have  been 
drawn  to  show  the  partioning  of  the  Procedure  Matrix  (PM)  and  the  Numeric 
Ihput  Matrix  (NIM)  by  the  steps  in  the  procedure.  The  PM  partitioning  is 
defined  by  the  Procedure  Function  Address  Table  (PFAT)  and  the  NIM  par- 
titioning is  defined  by  the  Numeric  Function  Address  Table  (NFAT). 

More  specifically,  the  PFAT  for  SPECT  contains  the  indices 
1,  2,  10,  11,  and  20,  indicating  that  user  decisions  for  steps  1.0.  PERF 


INTERUP,  2.  0 . PERF  SELEV,  3.  0 PERF  INTERUP,  4.  0 . PERF  FILTER, 
and  5.  0 . PERF  INTERUP  begin  at  PM  elements  1,  2,  10,  11,  and  20  re- 
spectively. Also,  the  NFAT  for  SPECT  contains  the  indices  0,  1,  0,  6,  0, 
indicating  that  alphanumeric  input  for  steps  2.  0 . PERF  SELEV  and  4.  0 
. PERF  FILTER  begins  at  NIM  elements  1 and  6 respectively.  No  alpha- 
numeric input  exists  in  the  NIM  for  the  INTERUP's  at  steps  1.  0,  3.  0,  and  5.  0 


With  this  backgroxind,  scenarios  will  now  be  presented  which 
describe  how  listed  PM  and  NIM  elements  were  recorded  during  the  programming 
of  SPECT  and  how  they  are  utilized  during  an  execution  of  SPECT.  A step 
by  step  description  of  the  various  actions  taken  by  the  user  and  the  resulting 
system  response  is  given  in  the  following  format: 

• Message  (M):  A message  displayed  on  the  CRT  screen  to 

perform  a specified  function  (e.  g. , enter  alphanumeric  in- 
formation via  the  CRT  keyboard).  M may  also  be  a key- 
word menu  which  displays  up  to  six  processing  options 


HODE  NONM 

MODE  ■ Noun 


• • • • 

.LIST 

SPECT 

1.0 

• PERF 

INTERUP 

2.0 

.PERF 

SELEV 

S.0 

.PERF 

INTERUP 

a.0 

,PERF 

FILTER 

5.0 

,PERF 

INTERUP 

• • • • 

.LIST 

SPECT* 

IN-  PROCEDURE 

MATRIX 

THIS  PROCEDURE  COMPUTES  I DISPLAYS  THE  POWER 
SPECTRUM  FOR  A <«l02a  PT  LONG  PERIOD  wAVEFOR** 
WITH  AN  'INTERRUPT'  IN  FILTER  FOR  OPTIONAL 
HARO  COPY,  AN  AUTOLOOP  HAS  BEEN  ESTABLISHED 
BUT  STEP  5 IS  'INTERRUPTED'  FOR  MANUAL  EXIT, 
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LISTING  OF  THE  PROGRAMMED  PROCEDURE  SPECT 
AND  ITS  ASSOCIATED  PROGRAM  MATRICES 
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corresponding  to  the  function  keys  (number  1,  2,  3,  4,  5, 
and  6)  on  the  CRT  keyboard. 

• Action  (A):  Is  the  subsequent  action  taken  by  the  analyst 
(e.  g. , alphanumeric  input  or  a user  decision). 

• Explanation  (E):  Gives  an  explanation  as  to  the  result  of 
an  analyst  action. 

In  the  scenarios  which  follow  it  is  assumed  that  ISPSE  has  been 
initiated  according  to  the  directions  described  in  Section  II  and  that  the  user 
is  working  at  the  CRT  console.  All  dialogue  refers  to  that  CRT  display  and 
associated  CRT  keyboard.  Also,  for  a detailed  description  of  the  system 
functions  SELEV  and  FILTER  which  appear  in  the  scenarios,  refer  to 
"Documentation  of  the  ISPS"  (Ringdal,  et  al.  , 1975). 

1.  Programming  SPECT 

Referring  to  the  keyword  menus  for  SELEV  and  FILTER 
illustrated  in  Figure  V-5  and  respectively,  to  the  console  communications 
for  the  programming  of  SPECT  shown  in  Figure  V-4,  and  to  the  SPECT 
program  matrices  in  Figure  V-3: 

A;  Type:  . MODE  PRGM 

E:  The  system  goes  to  PRGM  (program)mode. 


1 


A:  Type;  . PERF  SPECT 

E:  The  system  initiates  execution  of  the  procedure  SPECT 

and  pauses  at  step  1,  . PERF  INTERUP. 

M:  PAUSE  AT  1.  0:  #4  RESTART,  #5  CONTINUE,  #6  STOP 

A:  Hit  function  key  number  5 on  the  CRT  keyboard,  to  continue. 
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MODE  PRCH 

MODE  ■ PRGH 

PERF  8PECT 

USER  PROCEDURE  8PECT -INITIATED 
PAUSE  AT  1,0  I 04  RESTARTr  #5  CONTINUE*  46  STOP 
SYSTEH  FUNCTION  SELEV  INITIATED 
ENTER  EVENT  SEQUENCE  NUHSER  FROM  LIST 

• • • • T 1 

Enter  station  number  (uis) 

ENTER  component  NUMBER  (1*3) 

• • • • T 1 

ENTER  NUMBER  OF  COPIES  TO  BE  SAVED  t TS  ■ 1253  TL  « 

ENTErSveNT  SEQUENCE  NUMBER  FROM  LIST 


614  SEC 


PAUSE  AT  3*B  I 44  RESTART*  45  CONTINUE*  46  STOP 
SYSTEM  FUNCTION  FILTER  INITIATED 
PAUSE  AT  S,i  I #4  REBTART*  45  CONTINUE*  46  BTOP 

PAUSE  AT  3*0  I 44  RESTART*  45  CONTINUE*  46  STOP 

PAUSE  AT  US  I 44  RESTART*  45  CONTINUE*  46  STOP 

AUTOLOOP  REQUESTED*  ENTER  NUMBER  OF  TIMES  TO  LOOP 
• • ■ * ES 

program  ok  for  procedure  ipect 


figure  V-4 

CONSOLE  COMMUNICATIONS  FOR 
PROGRAMMING  OF  SPECT 


ft*.  \MOTHEa ►{•'EYBOARD 


KEYWORD  MENUS  FOR  SYSTEM  FUNCTION  FILTER 


Execution  of  SPECT  is  continued  at  step  2 where  SELEV 
is  initiated  and  the  system  state  'CONTINUE  PRGM'  is 
displayed. 

SYSTEM  FUNCTION  SELEV  INITIATED 
ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

Type;  Hil 

Selects  event  number  1 for  processing  and  records  a 'T'  in  the 
SELEV  partition  of  the  NIM. 

ENTER  STATION  NUMBER  (1,  15) 

Type  Tb6 

Selects  station  number  6 and  records  another  'T'  in  the  NIM. 

ENTER  COMPONENT  NUMBER  (1,3) 

Type:  T)4l 

Selects  component  number  1 and  records  a third  'T'  in  the  NIM. 
Then  2048  points  of  the  long-period  waveform  for  event  #1,  station 
#6  and  component  #1  are  displayed. 

SELEV  keyword  menu  1 for  dynamic  cursor  operation 

System  state  automatically  changes  to  'INTERRUPT  PRGM' 

System  enters  'interrupt'  state  because  a dynamic  cursor  is 
enabled. 

SELEV  keyword  menu  1. 
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A:  Hit  function  key  number  1 (START-STOP) 

E:  Curior  begins  moving  across  waveform. 

M;  SELEV  keyword  menu  1. 

A;  Hit  function  key  number  1 (also  possibly  number  2 and/or 

number  3). 

E:  Stops  cursor  movement  to  position  cursor  at  beginning  of  time 

window. 

M:  SELEV  keyword  menu  1. 

A:  Hit  function  key  'C 

E:  System  state  changes  to  'CONTINUE  PRGM'  and  the  node  -99 

is  recorded  in  the  SELEV  partition  of  the  PM. 

M:  SELEV  keyword  menu  1. 

A:  Hit  function  key  number  4 (PICK  START) 

E:  Selects  point  at  which  cursor  is  positioned  as  the  start  of 

the  time  window  and  records  a 4 in  the  PM. 

M:  SELEV  keyword  menu  1. 

A:  Hit  function  key  number  1. 

E:  Cursor  begins  moving,  a 1 is  recorded  in  the  PM,  and  the 

system  state  automatically  changes  to  'INTERRUPT  PRGM' 
because  a dynamic  cursor  is  being  moved. 
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M:  SELEV  keyword  menu  1. 

A:  Hit  function  key  number  1 (also  possibly  number  2 and/or 

number  3) 

E:  Stops  cursor  movement  to  position  cursor  at  end  of  time 

window. 

M:  SELEV  keyword  menu  1. 

A;  Hit  function  key  'C 

E:  System  state  changes  to  'CONTINUE  PRGM'  and  the  node  -99 

is  recorded  in  the  PM. 

M;  SELEV  keyword  menu  1. 

A:  Hit  function  key  nvurnber  5 (SELECT  LENGTH) 

E:  Records  a 5 in  the  PM  and  displays  a new  menu. 

M:  SELEV  keyword  menu  2. 

A:  Hit  function  key  number  5 (CURSOR  POSITION) 

E:  Selects  the  point  at  which  the  cursor  is  positioned  as  the  end 

of  the  time  window  and  records  a 5 in  the  PM. 

M:  SELEV  keyword  menu  1. 

At  Hit  function  key  number  6 (EXIT) 

E:  Exits  from  the  window  selection  phase  of  SELEV  and  records 

a 6 in  the  PM. 

M:  ENTER  NUMBER  OF  COPIES  TO  BE  SAVED:  TS-12&3 

TL-814  SEC. 
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Type:  2 

Sevee  two  copies  of  the  edited  waveform  and  records  a 2 
in  the  NIM. 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

Type:  carriage  return  (i.  e. , the  null  entry) 

The  system  exits  from  SELEV,  records  a 'B'  in  the  NIM  and 
a 6 in  the  PM,  and  pauses  at  step  3,  . PERF  INTERUP. 

PAUSE  AT  3.  0:  #4  RESTART,  #5  CONTINUE,  #6  STOP 

Hit  function  key  number  5 on  the  CRT  keyboard,  to  continue 

Execution  of  SPECT  is  continued  at  step  4 where  the  system 
function  FILTER  in  initiated  and  two  copies  of  the  edited 
waveform  are  displayed. 

FILTER  keyword  menu  2. 

Hit  function  key  number  5 (NEW  FUNCT) 

Records  a 5 in  the  FILTER  partition  of  the  PM  and  displays 
a new  menu. 

FILTER  keyword  menu  2.  4. 

Hit  function  key  number  4 (DISP  SPECT). 

Computes  the  spectrum  of  trace  number  2 - work  trace  and 
records  a 4 in  the  PM. 

ENTER  DESIRED  RESOLUTION  IN  DB-DEFAULT=40 
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A:  Type:  75 

E:  Specifies  a resolution  of  75  DB,  records  a 75  in  the  FILTER 

partition  of  the  NIM,  and  displays  the  computed  spectrum. 

M:  FILTER  keyword  menu  2. 

A:  Hit  function  key  number  3 (EDIT  DISPL) 

E:  Records  a 3 in  the  PM  and  displays  a new  menu. 

M:  FILTER  keywork  menu  2.  2. 

A:  Hit  function  key  nvimber  3 (NEW  SCALE) 

E:  Records  a 3 in  the  PM  and  displays  a new  menu. 

M:  FILTER  keyword  menu  2.  2.  1. 

A:  Hit  function  key  number  3 (NEW  VERT) 

E:  Records  a 3 in  the  PM  and  initiates  request  for  a new  vertical 

scale. 

M;  ENTER  NEW  VERTICAL  SCALE  - CURRENT  VALUE  IS  2. 4 
INCHES 

A:  Type:  2 

E:  The  vertical  scale  factor  is  decreased  to  2 inches  ^ (improving 

trace  separation),  the  traces  are  re-displayed  accordingly, 
and  a 2 is  recorded  in  the  NIM. 

M:  FILTER  keyword  menu  2. 
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A:  Hit  function  key  number  3 (EDIT  DISPLAY) 

E:  Records  a 3 in  the  PM  and  displays  a new  menu. 

M;  FILTER  keyword  menu  2.  2. 

A:  Hit  function  key  5 (NEW  ANNOT) 

E:  Records  a 5 in  the  PM  and  initiates  request  for  new  annotation. 


! 


M;:  ENTER  NEW  ANNOTATION  INDEX  - CURRENT  VALUE  IS  1. 

A:  Type;  2 

E;  More  complete  annotation  is  provided  for  each  trace  and  a 
2 is  recorded  in  the  NIM. 

M;  FILTER  keyword  menu  2. 

A:  Hit  function  key  'I' 

E;  System  state  changes  to  'INTERRUPT  PRGM'.  The  objective 
here  is  to  provide  an  interrupt  in  execution  for  optional 
hard  copy. 

M;  FILTER  keyword  menu  2. 

A;  Hit  function  key  6 (EXIT) 

E:  The  system  exits  from  SELEV,  records  the  node  -1  followed 

by  a 6 in  the  PM,  reverts  to  the  state  'CONTINUE  PRGM', 
and  pauses  at  step  5,  . PERF  INTERUP. 

Mt  PAUSE  AT  5.  0:  #4  RESTART.  #5  CONTINUE.  #6  STOP 

At  Hit  function  key  '!' 
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E;  System  state  changes  to  'INTERRUPT  PRGM'.  The  objective 
here  is  to  provide  an  'interrupted*  INTERUP  for  manual 
branching  during  execution. 

M:  PAUSE  AT  5.  0:  #4  RESTART,  #5  CONTINUE,  #6  STOP 

A:  Hit  function  key  number  4 to  restart. 

E:  A 0 is  recorded  in  the  PM  for  the  INTERUP  at  step  5,  the 

system  state  reverts  to  'CONTINUE  PRGM'  and  control 
is  transferred  to  step  3,  . PERF  INTERUP,  where  the 
system  pauses. 

M;  PAUSE  AT  3.  0:  #4  RESTART,  #5  CONTINUE,  #6  STOP 

A;  Hit  function  key  nvimber  4 to  restart 

E:  A 4 is  recorded  in  the  PM  for  the  INTERUP  at  step  3 and 

control  is  transferred  to  step  1,  .PERF  INTERUP,  where 
the  system  pauses. 

M:  PAUSE  AT  1.  0;  #4  RESTART,  #5  CONTINUE,  #6  STOP 

A:  Hit  function  key  number  6 to  stop 

E:  The  objective  here  is  to  terminate  the  programming  of 

SPECT  by  establishing  an  autoloop. 

M:  AUTOLOOP  REQUESTED,  ENTER  NUMBER  OF  TIMES  TO 

LOOP 

A:  Type:  25 

Et  Specifies  an  autoloop  counter  s 25  (providing  for  the  processing 
of  25  waveforms  via  SPECT),  records  a 31  • 2546  in  tite  PM 
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for  the  INTERUP  at  atep  1,  and  returns  control  to  the 
ISPSE  Interpreter  Supervisor  with  the  message:  PROGRAM 
OK  FOR  PROCEDURE  SPECT.  This  means  that  the  program 
for  SPECT  has  been  terminated  in  a valid  fashion  and  that 
the  procedure  SPECT  is  now  designated  as  programmed. 


2.  Execution  of  SPECT 


Referring  to  the  keyword  menus  for  SELEV  and  FILTER 
illustrated  in  Figure  V - 5 and  Figure  V -6,  respectively,  to  the  console  com- 
munications for  the  execution  of  SPECT  shown  in  Figure  V-7 , and  to  the 
SPECT  program  matrices  in  Figure  V-3: 


(I) 


A: 


E: 


Type:  . MODE  EXEC 

The  system  goes  to  EXEC  (execute)  mode 


(2) 


(3) 


A;  Type:  . PERF  SPECT 

E:  The  system  initiates  execution  of  the  programmed  procedure 

SPECT 

M:  PAUSE  AT  1.0:  #4  RESTART,  #5  CONTINUE,  #6  STOP 

E:  System  automatically  services  this  INTERUP  from  the  PM, 

according  to  autoloop  conventions,  and  execution  continues 
at  step  2. 

M:  SYSTEM  FUNCTION  SELEV  INITIATED 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 


A:  Type:  1 

E:  User  Intervention  is  required  at  this  point  because  a 'T' 

is  retrieved  from  the  SELEV  partition  of  the  NIM.  Hence 
the  user  selects  event  number  1 via  the  CRT  keyboard. 
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.MOOC  e»t€-  — - . _ 

HOOC  ■ Exrc 

PERF  8PECT 

USER  PROCEDURE  tPECT  INITIATED  . 

PAUSE  AT  US  I #4  RESTART,  #5  CONTINUE,  IKS  STOP 
SYSTEM  FUNCTION  SELEV  INITIATED 
ENTER  EVENT  SEOUCNCE  NUMBER  F^^OM  LIST  — - 

enter  station  number  (U15) 

ENTER  COMPONENT  NUMBER  (1,3) 

ENTER  NUMBER  OF  COPIES  TO  BE  SAVED  I TS  ■ 12St  TL  ■ 
...•  B,2SBSBBBE«B1 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

'system  FUNCTION  FILTER  INITIATED 
PAUSE  AT  S.0  I #4  RESTART,  «S  CONTINUE,  «6  STOP 
PAUSE  AT  U0  I 44  RESTART,  45  CONTINUE,  46  STOP 
SYSTEM  FUNCTION  SELEV  INITIATED 
ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST  - - 

EnHr  station  number  (1,15) 

ENTER  COMPONENT  NUMBER  (1,3) 

ENTER  NUMBER  OF  COPIES  TO  BE  SAVED  | TS  • Tt  » 

•,«,  B, 2000000E^0 1 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

'system  FUNCTION  FILTER  INITIATED 
PAUSE  AT  5.B  I 44  RESTART,  45  CONTINUE,  06  STOP 


016  BE( 


062  8€( 


FIGURE  V-7 

CONSOLE  COMMUNICATIONS  FOR 
EXECUTION  OF  SPECT 
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(5)  M;  ENTER  STATION  NUMBER  (1,  15) 

A:  Type:  6 

E:  Here  again  user  intervention  is  required  because  another  'T' 

is  retrieved  from  the  NIM.  Hence  the  user  selects  station 
number  6 via  the  CRT  keyboard. 

(6)  M:  ENTER  COMPONENT  NUMBER  (1,3) 

A:  Tyx>e:  1 

E:  User  intervention  is  required  once  more  as  a third  'T*  is 

retrieved  from  the  NIM.  Here  the  user  selects  component 
number  1 and  then  2048  points  of  the  long-period  waveform  for 
event  #1,  station  #6,  and  component  #1  are  displayed. 

(7)  M:  SELEV  keyword  menu  1 for  dynamic  curser  operation 

A:  Hit  function  key  number  1 (START-STOP) 

E:  User  intervention  is  required  at  this  point  because  a -99 

node  is  retrieved  from  the  SELEV  partition  of  the  PM.  This 
action  starts  the  cursor  moving  across  the  waveform. 

(8)  M:  SELEV  key  word  menu  1. 

A:  Hit  function  key  number  1 (also  possibly  number  2 and/or 

number  3) 

E:  Stops  cursor  movement  to  position  curser  at  beginning  of 

window. 
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(9)  M:  SELEV  keyvword  menu  1 

A:  Hit  function  key  'C 


Automatic  execution  is  continued.  The  sequence  4,  1,  -99 
is  retrieved  from  the  PM  resulting  in  the  selection  of  the 
cursor  position  as  the  start  of  the  time  window,  followed 
by  an  interrupt  execution. 


(10)  M:  SELEV  keyword  menu  1. 

A;  Hit  function  key  number  1 


User  intervention  is  required  to  begin  cursor  moving  across 
the  waveform. 


(11)  M:  SELEV  keyword  menu  1; 


Hit  function  key  number  1 (also  possibly  number  2 and/or 
number  3) 

Stops  cursor  movement  to  position  cursor  at  end  of  time 
window 


(12)  M:  SELEV  keyword  menu  1 

A:  Hit  function  key  'C 


Automatic  execution  is  continued.  The  sequence  5,  5,  6,  6 is 
retrieved  from  the  PM  and  the  sequence  2,  'B'  from  the  NIM 
to  select  the  cursor  position  as  the  end  of  the  time  window, 
to  save  two  copies  of  the  edited  waveform,  and  to  exit  from 
SELEV. 


(13)  M: 
E: 


(14)  M: 
A; 
E: 

(15)  M: 
A; 
E: 

(16)  M: 

A: 

Et 

(17)  Mt 
Ai 


SYSTEM  FUNCTION  FILTER  INITIATED 

Automatic  execution  continues  at  step  4 because  the  INTER  UP 
at  step  3 is  ignored  during  the  execution  of  the  SPECT  auto- 
loop. Then  the  sequences,  4,  3,  3,  3,  3,  5,  -1  is  retrieved 
from  the  FILTER  partition  of  the  PM  and  the  sequence  75, 

2,  2 from  the  FILTER  i)artition  of  the  NIM  to  compute, 
display,  re-scale,  and  re-annotate  the  spectrum  for  the  edited 
waveform.  Finally,  retrieval  of  the  -1  interrupts  execution. 

FILTER  keyword  menu  2. 

Hit  function  key  number  3 (EDIT  I/O) 

User  intervenes  here  to  display  a new  menu 

FILTER  keyword  menu  2.  3 

Hit  function  key  number  4 (HARD  COPY) 

User  intervenes  to  request  optional  hard  copy  shown  in  Figure 
V-8. 


FILTER  keyword  menu  2. 

Hit  function  key  'C 

Automatic  execution  is  continued.  The  system  retrieves  a 
6 from  the  PM  to  exit  from  FILTER,  followed  by  a 0 for  the 
INTERUP  at  step  5,  causing  an  interrupt  in  execution. 

PAUSE  AT  5.0;  #4  RESTART,  #5  CONTINUE,  #6  STOP 
Hit  function  key  #4  to  restart 
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E:  Automatic  execution  is  resumed  as  the  user  intervenes 

and  performs  a manual  branch  to  re-execute  the  procedure. 
During  this  pass,  steps  (3)  to  (17)  in  the  scenario  are  re- 
peated with  the  following  exceptions: 

• Step  (6),  A is  changed  to  Type:  2,  selecting  component  2 

• Steps  (14)  and  (15)  are  skipped,  eliminating  the  hard  copy 

• Step  (17),  A is  changed  to:  Hit  function  key  #6  to  stop 
terminating  procedure  execution.  Nevertheless, 

step  (17)  could  be  repeated  unchanged  for  25  times  before 
the  system  automatically  terminates  SPECT  execution 
at  (3)  according  to  autoloop  conventions. 
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APPENDIX  A 

USE  OF  ISPSE  FOR  BASELINE  DISCRIMINATION 


This  appendix  describes  the  operation  of  the  Interactive  Short- 
Period  Event  Discriminator  (ISPED)  procedure  and  the  Multivariate  Event  Dis- 
criminator (MDCRM)  user  function.  This  procedure  has  been  programmed 
to  perform  a standard  processing  sequence  for  baseline  discrimination,  and 
the  user  function  has  been  designed  to  accomplish  multivariate  discrimination 
by  means  of  the  high  level  numerical  operator  statements,  QSTAT,  XSTAT, 
and  DSTAT  (see  Section  IV).  The  baseline  and  multivariate  discrimination 
techniques  have  been  discussed  by  Sax  (1976). 

The  ISPED  programmed  procedure  performs  the  operations  as 
shown  in  Figure  A-1.  It  is  noted  here  that  the  special  disk  file  named  SPEED 
PCM  which  contains  the  event  discriminant  values,  may  be  accessed  using 
the  ISPL  I/O  operator,  DREAD  (see  Section  IV).  The  event  number,  from 
the  DPSCAN  (see  Section  II)  event  list,  is  used  to  specify  the  record  number 
containing  the  discriminant  values  which  are  calculated  within  the  SPEED 
system  function  (see  Section  II).  Figure  A- 2 lists  the  operations  of  the  user 
function,  MDCRM.  This  function  automatically  retrieves  the  discriminant 
values  from  SPEED  PCM  to  calculate  the  mean  detectability  vectors  and  the 
projections  onto  these  vectors. 

The  steps  used  to  create  and  program  ISPED  are  shown  in 
Figure  A- 3.  An  autoloop  is  programmed  into  the  procedure  with  an  autoloop 
counter  equal  to  four.  The  autoloop  counter  may  be  changed  according  to  the 
instructions  discussed  in  Section  V-B-5  without  reprogramming  the  procedure. 
The  program  matrices  for  the  programmed  procedure,  ISPED,  are  listed 
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Select  displacement  (velocity,  acceleration) 
wavelet  from  disk. 

Decimate  wavelet. 

Exponentially  taper  wavelet. 

Smooth  spectra  of  deconvolved  signal  and  echo. 

Inverse  taper  the  reconstructed  signal. 

Compute  variable  frequency  magnitude  dis- 
criminants using  log-log  spectral  values  and 
store  them  on  a special  disk  file  called  SPEED 
PCM  for  later  access  by  MDCRM. 

Display  log-log  spectrum,  tabulate  the  dis- 
criminant values  on  the  CRT,  and  generate  a 
hard  copy  of  the  display. 

Select  the  number  of  events  to  process  with  the 
autoloop  feature. 


FIGURE  A-1 
15PED  OPERATIONS 


• Select  eemple  earthquake  population  from 
the  event  list. 

• Calculate  the  mean  and  standard  deviation 
vectors,  EQ  and  SDQ  from  the  earthquake 
population. 

• Select  two  regional  presumed  explosion 
populations. 

• Calculate  the  mean  detectability  vectors, 
EDXl,  and  EDX2,  for  each  region. 

• Select  event  population  to  be  classified. 

• Calculate  detectability  vectors  for  all  events 
and  project  them  onto  EDXl  and  EDX2. 

• Display  projections  as  a point  plot  with 
different  intensities  for  each  population. 


) 

FIGURE  A- 2 

I MDCRM  OPERATIONS 
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P‘<OCS 

EvnTL* 

SPECT* 

CPEATE  ISPEO 

XNTCRUP  THXl  fROCCOURE  CAtCULATEt  A tET  Of  VfR 
2,f  .PERP  lELEV  EARTMaUAKE/EXPLOSXON  DItCRINiNANT  VALUES. 

3.S  .PERP  XNTERUP  A HARO  COPY  X8  HAOE  FOR  EACH  EVENT  8HONXN6 
! 4,f  .PERP  SPEEO  XTS  LOS  LOS  SPECTRUH  AND  THE  OXSCRXMXNANT 

I S,8  .PERP  XNTERUP  PARANETERf  (SAVES  ON  PXLE  ■ SPEEO  PCN), 

6.0  «S 

....  .wnot  PRGM 

MOOC  s PiiGil 

Pci^P  ISOEO 

USER  PRGCf:Oil«E  loPED  IMTIA7EO 

PAUSE  AT  1,?  I ia  RESTART,  P5  CONTINUE,  R6  STOP 
SYSTEM  FUNCTION  SELEY  INITIATED 
ENTER  EVENT  SEQUENCE  NUM0ER  FROM  LIST 

• • « . C ft 

ENTER  STATION  NUMSEP  (1,15)  _ . 

ENTER  COMPONENT  NUMBER  (1,3) 

u'tER  number  of  COPIES  TO  HE  SAVED  I T8  > 2280  TL  « 12  SEC 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

‘pause  at  J.O  : ««  restart,  as  continue,  as  STOP 
SYSTEII  FUNCTION  SPEED  INITIATED 

T/O  (TOTAL)  VALUE  IN  ADSORB  « 0.000EtO0  HIT  CR  TO  CONTINUE 

DO*VOU  TO  DECIMATE?  (Y,N) 

Y 

ENTER  REFLECTION  COEFICIENT 

ENTER  8CATTF.RING  COEFFICIENT  (0.0<SC<e.5) 

• • • • 0 

ENTER  ECHO  DELAY  IN  POINTS  (NOEL)  . 

Oo’yOU  MlSH  TO  PROCESS  SECONDARY  REFLECTION?  (Y  OR  N) 

....N  — . — _ 

ANALYZE  RESIDUAL  ? (Y,N) 
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CREATION  AND  PROGRAMMING  OF  ISPED 
(PAGE  1 OF  2) 
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EMF.S  POINT  AT  -hICH  TO  ZEHO  DATA  (<128) 

• • • • 1 0 Sf 

ENTt*<  'Y'  IF  -•^EOS  OR, OTHERWISE  ENTER  INDEX 

• • • • Y 

ENTER  '.Ot^EST  FREQUENCY  TO  BE  DISPLAYED  IN  SPECTRUM  (LOG  FREQ) 

ENTER  hIGWtsT  TO  BE  DISPLAYED  (MUST  BE  < 0,6990) 

• • • • ,.69 

..PAUSE  AT  y.o  : «a  RESTART,  !»5  CONTINUE,  A6  STOP 

PAUSE  AT  3.j  t Ra  RESTART,  *5  CONTINUE,  *6  STOP 

PAUSE  AT  l.d  : RESTART,  *5  CONTINUE,  AS  STOP 

. A'JTOLCOP  requested,  ENTER  NUMBER  OK.JIMES  TO  LOOP 

t • • • ^ 

program  UK  FOR  PROCEDURE  ISPED 
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CREATION  AND  PROGRAMMING  OF  ISPED 
(PAGE  2 OF  2) 
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in  Figure  A-4.  Note  that  there  are  no  "interrupts"  in  the  procedure  because 
all  of  the  values  in  the  Procedure  Matrix  are  positive.  Therefore  no  analyst 
interaction  is  required  during  the  execution  of  ISPED. 

Figure  A- 5 provides  a list  of  the  user  function,  MDCRM.  The 
discriminant  values  must  be  calculated  through  the  execution  of  ISPED,  for  all 
events  used  in  the  multivariate  discrimination  analysis,  before  MDCRM  is 
.PERFORM'ed. 


Figure  A-6  provides  a list  of  the  output  of  ISPED  when  executed 
for  4 events.  Figure  A-7  is  the  hardcopy  Calcomp  plots  of  the  CRT  displays 
from  the  same  run.  Figure  A -8  displays  the  output  of  MDCRM  when  executed 
for  twenty  earthquakes,  ten  presxuned  explosions  from  region  1,  three  presumed 
explosions  from  region  2,  and  two  events  to  be  discriminated.  The  input  to 
MDCRM  consists  of  two  card  decks.  The  first  deck  contains  the  event  numbers 
for  the  eakhquake  sample  population,  and  the  presumed  explosions  from 
region  1 and  2,  in  that  order.  The  second  deck  includes  all  of  the  first  deck 
plus  the  event  numbers  of  the  events  to  be  discriminated.  Remember  that 
the  programmed  procedure,  ISPED,  must  be  executed  for  all  35  events  before 
MDCRM  Is  . PERFORM'ed. 

Figure  A- 9 is  the  Calcomp  plot  of  the  projection  vectors.  The 
circles,  in  increasing  diameters,  represent  the  sample  earthquake  population, 
the  presumed  explosions  from  the  first  region,  the  presumed  explosions  from 
region  2,  and  the  events  to  be  discriminated,  respectively. 

Once  an  event  data  base  has  been  defined  (Appendix  B,  Documen- 
tation of  the  Extended  Interactive  Seismic  Processing  System  (ISPSE),  (Shaub, 
et.  al. , 1977)),  the  discrimination  Usk  may  be  performed  by  the  following 
procedure: 

• Request  the  execution  of  ISPSE  from  the  DEC  teletype  as 

shown  in  Figure  11-7. 
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....  .PHOCS 

rVNTL* 

SPECT* 

ispcn* 

LISl  ISPED 

l.t  tPePP  XNTCPUP 

THIS  PROCEDURE  CALCULATES 

A SET  OP 

VPM 

2.t  .pcRf  setev 

EARTHOUAKE/EXPLOIXON  DXSCRXMINANT 

VALUES, 

5.0  .PtPP  INTERUP 

A HARD  COPY  IS  MADE  FOR  EACH  EVENT 

SHOWING 

.PCRP  SPEED 

ITS  LOG  LOG  SPECTRUM  AND  THE  DISCRIMINANT 

S.0  aPERP  XNTiIRUP 

PARAMETERS  (SAVED  ON  PILE 

■ SPEED 

PCM), 

CXtT  XIPCO* 

PPOCEDUKE  MATRIX 

10  4 5 1 

6 6.41111 

1 6 

2 3 

« 1 1 4 

1 1 4 6 3 5 4 

1 1 

1 1 

2 16  5 

1 1 1 6.  6 r 4 

5 6 

4 

Mu>'.EPic  Input  matrix 

c . «, 

i0O0eaPEt‘<i-  0.i0rfi300Ef0i ' 

O.1000000E-«>01  - 

p 

3 ..  Y. 

0.00O000DEf00 

0,043P3NriEt?e  (1, 

N 

e.itff-r.r.i  PEfai 

Y -e,603P090Ef00 

0.690000eE4e0 

PROCEDURE  KUMCTION 

ADDRESS  table 

12  7 6 

44 

NUHCRIC  function  ADDRESS  TABLE 

- 3 _„1  0 ..  6 . 

0 _ 
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PROGRAM  LISTING  OF  ISPED 
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TI-1SP8E 

LOGGED  0N|  10/29/77  *T  0|  3l5S»  ENTER  COMMAND  OR  .HELP 

• • • • 

.LIST  MDCRM 

i.i 

C 

THIS  FUNCTION  Z8  CALLED  MDCRM  , IT  PERFORMS  A 

# 

i.e 

C 

MULTIVARIATE  EVENT  DISCRIMINATION  BASED  ON  MEAN 

• 

i.e 

C 

DETECTABILITIES  AS  DESCRIBED  BY  (SAX, 1976). 

• 

1.(1 

C 

A SAMPLE  EARTHQUAKE  POP.  TOGETHER  KITH  TWO  REGIONAL 

# 

1.0 

C 

PRESUMED  EXPLOSION  POPULATIONS  ARE  SPECIFIED  BY  CARDS 

• ^ 

1.0 

VECTOR  ( EQ(  10  ).  SOQ(  10  ),  EDX1(  10  ),  EDX2(  10 

}) 

2.0 

C 

EACH  CARO  CONTAINS  ONE  EVENT  SEQUENCE  NUMBER  FROM  THE 

* 

2.0 

C 

DP8CAN  EVENT  LIST.  EQ  AND  SOO  VECTORS  ARE  COMPUTED 

# 

2.0 

C 

FROM  THE  EARTHQUAKES  AND  USED  TO  COMPUTE  THE  MEAN 

# 

2.0 

C 

DETECTABILITY  VECTORS  EDXl  (PRESUMED  EXPLOSIONS  FROM 

# 

2.0 

C 

REGION  1)  AND  EDX2  (PRESUMED  EXPLOSIONS  FROM  REGION  2)P 

2.0 

VECTOR  ( EPK  100  ),  EP2(  100  ).  1NT(  3 ) ) 

3.0 

C 

DETECTABILITIY  VECTORS  FOR  ALL  EVENTS  NOTED  PLUS  NEn 

# 

3.0 

C 

EVENTS  TO  BE  CLASSIFIED  ARE  THEN  COMPUTED  AND  PROJECTED# 

3.0 

C* 

ON  EOXl  AND  E0X2,  YIELDING  TWO  VECTORS  (EP1#EP2)  THAT 

• 

3.0 

C 

NAY  BE  PLOTTED  (X.Y)  FASHION,  1 POINT  PER  EVENT,  THUS 

• 

3.0 

C 

OBTAINING  A multivariate  DISCRIMINANT  PLOT  (SAX#1976) 

.# 

3.0 

LABEL  ( BLANK  ( 1 ),  L6L  ( 10  ) ) 

4.0 

LABEL  ( XLAB  ( IB  ),  YLAB  ( 10  ) ) 

5.0 

C 

NOTEI  The  procedure  ZSPEO  MUST  HAVE  BEEN  PERFORMED 

# 

5.0 

C 

TO  generate  DISCRIMINANTS  FOR  ALL  EVENTS  TO  BE 

• 

5.0 

C 

referenced  by  MDCRM  PRIOR  TO  PERFORMING  MDCRM. 

• 

5.0 

LABEL  ( mess  ( 45  ) } 

6,0 

blank  » " " 

7,0 

YLAB  ■ "REGION  1 « 

6.0 

XLAB  ■ "REGION  2 " 

4,0 

ND  ■ 10 
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HESS  a "INPUT  NUMBER  OF  EARTHQUAKES  - NQ 
DISPLAY  ( HESS  ) 

HESS  ■ "FOR  AN  EXPLAINATION  OF  HDCRM  ENTER  0 FOR  NQ 
DISPLAY  (HESS) 

HESS  a xTHEN  TYPEl  .LIST  HOCRH  BEFORE  RE-PERFORMiNG 
DISPLAY  (HESS) 

INPUT  ( NO  ) 

IF  NQae  THEN  JUHP  TO  S500 

HESS  a "INPUT  NUHBER  OF  EVENTS  IN  REGION  I - NXl 
DISPLAY  ( HESS  ) 

INPUT  ( NXl  ) 

HESS  a "INPUT  NUHBER  OF  EVENTS  IN  REGION  2 - NX2 
DISPLAY  ( HESS  ) 

INPUT  ( NX2  ) 

HESS  a "INPUT  OF  EVENTS  TO  OISCRIHINATE  - NED 
DISPLAY  ( HESS  ) 

INPUT  ( NED  ) 

NE  a NQ  t NXl  ♦ NX2  ♦ NED 
INT(l)  a NO  ♦ 1 
INT(2)  a INT(l)  ♦ NX) 
lNr(3)  a INT(2)  ♦ NX2 

HESS  a "PLACE  NQ  ♦ NXl  ♦ NX2  CAROS  IN  CARO  READER 
DISPLAY  ( HESS  ) 

HESS  a " HIT  CARRIAGE  RETURN  TO  CONTINUE 
DISPLAY  ( HESS  ) 

INPUT  (HESS) 

08TAT  ( NQ,  NO,  EQ,  SOQ  ) 

DISPLAY  ( BLANK  ) 
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TI-I8P8E 

LOGGED  ONI  10/29/77  AT 

01  3156; 

ENTER  COHHAND  OR  .HELP 

3s,e 

LBL  « « FO  VECTOR" 

39,0 

OZSPLAY  ( LdL  ) 

90.0 

DISPLAY  ( BLANK  ) 

41.0 

DISPLAY  ( EQ  ) 

42.0 

DISPLAY  ( BLANK  ) 

43.0 

LBL  « "8D6  VECTOR" 

44,0 

DISPLAY  ( LBL  ) 

4S.0 

DISPLAY  ( BLANK  ) 

46,0 

DISPLAY  ( SOQ  ) 

47.0 

XSTAT  1 NXl,  ND.  EQ, 

SDQ,  EDXl 

) 

48.0 

DISPLAY  ( BLANK  ) 

44,0 

LBL  « "EOXl  VECTR" 

50.0 

DISPLAY  ( LBL  1 

51.0 

DISPLAY  ( BLANK  ) 

5?,0 

DISPLAY  ( EOXl  ) 

53.0 

XSTaT  ( NX2,  ND,  EO, 

SDO,  EDX2 

) 

54.0 

display  ( BLANK  ) 

55,0 

LBL  a "E0X2  VECTR" 

56.0 

DISPLAY  C LBL  ) 

57.0 

DISPLAY  ( BLANK  ) 

58,0 

DISPLAY  ( E0X2  ) 

S9.e 

DISPLAY  (BLANK) 

FIGURE  A- 5 
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60*0 

61.0 

62*0 

63*0 

64»0 

65.0 

66. 0 

67.0 

66.0 

69.0 

70.0 

71.0 

72.0 

73.0 

74.0 

75.0 

76.0 

77.0 

70.0 

79.0 
00.0 


HESS  ■ "PU7  NE  ■ N0fNXi4NX26NE0  O100  CAROS  XN  READER 
DISPLAY  ( MESS  ) 

HESS  ■ "HIT  CARRIAGE  RETURN  TO  CONTINUE 
DISPLAY  ( MESS  ) 

INPUT  (MESS) 

08TAT  (NE,  NO,  EQ,  SDQ,  EDXl,  EPl,  E0X2>  EP2  ) 

DISPLAY  ( BLANK  ) 

HESS  ■ "EPl  VECTOR  (READ  ONLY  FIRST  NE  ELEMENTS) 
DISPLAY  (MESS) 

DISPLAY  ( BLANK  ) 

DISPLAY  ( EPl  ) 

DISPLAY  ( BLANK  ) 

HESS  a "EP2  VECTOR  (READ  ONLY  FIRST  NE  ELEMENTS) 
DISPLAY  (MESS) 

DISPLAY  ( BLANK  ) 

DISPLAY  ( CP2  ) 

PLOTP  ( EP2,  EPl,  NE,  XLAB,  YLAB,  INT  ) 

6500  CONTINUE 
DISPLAY  ( BLANK  ) 

BLANK  a "END  " 

DISPLAY  ( BLANK  ) 


(READ  ONLY  FIRST  NE  ELEMENTS) 
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LIST  OF  USER  FUNCTION  MOCRM 
(PAGE  4 OF  4) 


22Be  TL  « 


12  SEC 


HIT  CR  TO  CONTINUE 


HWK  E«C- — - : ; ::r— 

mode  s exec 

PERF  XIPEO 

USER  PPOCE'JURE  ISPEO  INITIATED 

PAUSE  AT  l.y  * «<l  RESTART,  ftb  CONTINUE,  «6  STOP 

system  function  selev  initiated 
Enter  event  seouence  nuhreh  from  list  . 

•...  S EARTHQUAKE 

enter  station  number  (1,15) 

....  p.ir ^^-azEvei 
enter  CONPO'iE'iT  NUMBER  (1,3) 

.... 

ENTER  NJKBER  OF  COPIES  TO  BE  SAVED  I T5  * 

.... 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

’system  FUNCTION  SPEED  INITIATED 
T/Q  (TOTAL)  VALUE  IN  AbSOKB  s O.COSE^OP 

Oo’yOU  RiSH  TO  OECI'ATE?  (Y,N) 

....  YES 

ENTER  REFLECTION  COEFICIENT 

....  ?»,?e'!0  3'J.Tetoi? 

ENTER  SCATTERING  COEFFICIENT  (e.8<SC<0,5) 

....  0,'je.‘T3S0^lE^(S0 

ENTER  ECMO  DELAY  IK  POINTS  (NOEL) 

O.!’iOB7O3‘*Et00 

Oo'yOU  RISH  TO  PROCESS  SECONDARY  REFLECTION?  (Y  OR  N) 

• • . . NO 

ANALYZE  RESIDUAL  ? (Y,N) 

...  a NO 

ENTER  POINT  AT  RHICH  TO  ZERO  DATA  (<126) 

• ••.  0,in^0;>0'5Et03 

ENTER  *V'  IF  FREQS  OK,OTMERkISE  ENTER  INDEX 
YES 

'enter  LCkEST  FREQUENCY  TO  BE  DISPLAYED  IN  SPECTRUM  (LOG  FREQ) 

.... 

ENTER  HIGHEST  FREQ  TO  8E  DISPLAYED  (MUST  BE  < 0.6990) 

.... 

PAUSE  AT  5.7  i RESTART,  *5  CONTINUE,  F6  STOP 
PAUSE 'at  l.r^  t *9  RESTART,  *5  CONTINUE,  06  STOP 
SYSTEM  FUNCTION  SELEV  INITIATED 
ENTER  event  sequence  NUMBER  FROM  LIST 

9 EARTHQUAKE.  ...  - 
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ENTER  STATION  NUMBER 

.... 

ENTER  CO^•PO•4E•JT  NUMBER  (1,3)  

.... 

EWTfcH  NUMhEP  OF  COPIES  TO  BE  SAVED  : T8  » 2134  TL 

....  ■’oci 

ENTER  EVENT  SEQUENCE  WU'^BEK  FROM  LIST 


12  SEC 


SYSTEM  function  SPEED  INITIATED 

T/Q  (TOTAL)  V«LUE  IN  ABSORB  s B.OP0E400  HIT  CR  TO  CONTINUE 

Do’yO'J  isISH  TO  OECINATE?  (Y,N) 

Y-^  S 

ENTEH  REFLECTION  COEFICltNT 

ENTER  SCATTER! NO  COEFFICIENT  (O.OOCO.S) 

.... 

ENTER  ECHO  DELAY  I'-i  POINTS  (NOEL) 

.... 

00  YOU  MSn  TO  PROCESS  SECOKOARY  REFLECTION'/  (V  OR  N) 

• . ■ • NO  — 

analyze  RESIDUAL  7 (Y,N) 

....  NO 

ENTER  POINT  AT  WHICH  TO  ZERO  DATA  (<128) 

....  »,13»BC0DE*03 

ENTER  'Y*  IF  FRtCS  OK,  OTHFR.»ISE  ENTER  INDEX 

....  YES 

ENTER  LOWEST  FPE3UENCY  TO  DE  DISPLAYED  IN  SPECTRUM  (LOG  FREQ) 

....  -n.fr5j’ooBpEtze 

ENTER  HIGHEST  FPEO  TO  3E  DISPLAYED  (HUST  BE  < B.6990) 

....  p,69oav^euE+0'' 

PAUSE  AT  5.0  I ««  RESTART,  «5  CONTINUF,  46  STOP 
PAUSE  AT  1.1  : RESTART,  »S  CONTINUE,  46  STOP 

SYSTEM  FUNCTION'  SELEV  INITIATED 

ENTER  EVENT  S£i2UE‘J(;E  WU''rieR  FROM  LIST 

....  31  PRESUMED  EXPLOSION 
ENTER  STATION  NUMHLR  (1,15) 

..••  P.l»»?0O«5iEtm  

ENTER  CO^'PON'ENT  NUMBER  (1,3) 

....  P.l.'-310^E4.n  _ __  ___  _ 


ERTER  NUMC-ER  OF  COPIES  TO  BE  SAVED  I T8  • 44i  TL  • 

....  'D,lGO.1.10C.E+0l 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

'•YSTEM  FUNCTION  SPEED  INITIATED  
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12  SEC 
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“77 ■’i  C TOTAL)  VALUE  I’M  ABSORB  ■ a«0l!9Et0f  HIT  CR  TO  CONTINUE 

iio'vou  MISH  T3  OtCIf^ATET  (Y»N) 

....  YES 

enter  REKtLCTICi^  COEFICIENT 
....  ?.i'33yd)P('Et:)o 

ENTER  scattering  COEFFICIENT  (0.e<SC<R.S) 

.... 

ENTER  ECHO  JEUAY  In  POINTS  (NOEL) 

....  tr' t'i'i 

00  YOU  WISH  TO  PROCESS  SECONDARY  KfcFLECTION?  (Y  OR  N) 

....  NO 

analyze  residual  7 (Y,N)  

....  NO 

ENTER  POINT  AT  WHICH  TO  ZERO  DATA  (<128)  _ 

....  ?.lfl0j^i(»r»EY33 

ENTER  'Y'  IF  FREQS  OTHERw ISE  ENTER  INDEX 
YES 

‘enter  Lc-;Esr  frequency  to  bl  displayed  in  spectrum  (lof  freq) 

....  A. JE+Av) 

ENTER  HIGHEST  FRET  TO  BE  DISPLAYED  (MOST  BE  < 0.6990) 

....  0.69QB«''30E*S1^3 

PAUSE  AT  5.u<  : A4  RESTARTr  PS  CONTINUE#  66  STOP 
PAUSE  AT  I.  * » ea  RESTART#  «S  CONTINUE#  66  STOP 
SYSTEM  FUNCTION  SFLcY  INITIATED 
ENTER  EVEfiT  SEOUENCL  .JUI14ER  FROM  LIST 
....  ib  PRESiiHF.O  EXPLOSION 
ENTER  STATION  NQ^-bEK  (1#15) 

....  JEA01 

ENTER  COMPONENT  NJhAER  (1#3) 

^ I 1 

enter  NUMIIKR  or  COPIES  TO  BE  SAVED  I TS  « 939  TL  « 12  SEC 

....  i.noaofloE+Pi 

ENTER  EVENT  SEQUENCE  NUMBER  FROM  LIST 

‘system  FUNCTION  SPEED  INITIATED 

T/0  (TOTAL)  value  In  ABSOPB  ■ 0.003E900  MIT  CR  TO  CONTINUE 

do'you  wish  to  OECIMATET  <Y#M) 

....  YES 

ENTER  reflect iC'i  COb'FICIENT 

.... 

ENTER  SCATTERING  COEFFICIENT  (B.S<SC<B.S) 

....  P.'/P?PH0?!EYO3 

ENTER  CCHP  DELAY  IN  POINTS  (NDEL)  .... 

• ••.  A.h(.T3  tSPEYSa 

00  YOU  NISM  TO  PROCESS  SECOnOARV  REFLECTION?  (Y  OR  N) 

• ••t  RO 
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analyze  residual  7 (Y*N) 


ENTER  POINT  AT  TO  ZERO  DATA  (<12S) 

....  O.lutittV  ... 

ENTER  'Y*  ZF  FRE3S  OK, OTHERnISE  ENTER  INDEX 

....  YES 

ENTER  LC^t-51  FRESUENCY  TC  3E  DISPLAYED  IN  SPECTRUH  (LOG  PREQ) 
-2.6«,’ia.'2DEti:? 

ENTER  highest  FREQ  TO  Pt  DISPLAYED  (MUST  BE  < B,6990) 

••••  O«S9?/TZDE^a0 

PAUSE  AT  5.Z  t A4  RESTART,  «5  CONTINUE,  «6  STOP 
PAUSE  AT  1.0  I ••  RESTART,  «S  CONTINUE,  P6  STOP 

, autoloop  conpletco,  returning  to  supervisor  . . 


EVENTOl  52.0N  160-8E  71/166/14.  4-  8.0  M8-5.1  HS-0.0  H-  55 

NRSR  1 CP-1  60.9N  10.8E  71/166/14.42.  8.0  9-  344  0-  64  5-0.10 


T02  41.  SN  78. 3E  71/170/17.23.  2.0  MB««5.2  MS-aO  H-  33 

1 CP-1  60.gN  10.8E  71/170/17.58.38.0  360  0=  44  S-0.10 


HARDCOPY  FROM  ISPED  EXECUTION 
(PAGE  2 OF  4) 


Tl«ISP8e  LOGGED  ON|  lt/29/77  AT  il  SlSB#  ENTER  COMMAND  OR  .HELP 


I 


r 


NO  ENTRY#  RE-ENTER 
....  .PCRF  HOCRM 
USER  FUNCTION  MOCRM  INITIATED 
INPUT  NUMBER  OF  EARTHQUAKES  • NQ 
FOR  AN  EXPLAINATION  OF  MOCRM  ENTER  0 FOR  NQ 
THEN  TYPEl  .LIST  MOCRM  BEFORE  Rf-PERF0RMlN6 

INPUT  number  of  events  IN  REGION  1 - NX! 

• • • • 10 

INPUT  NUMBER  OF  EVENTS  IN  REGION  2 - NX2 

input  of  events  TO  DISCRIMINATE  • NEO 

Place  nq  ♦ nxi  ♦ nx2  cards  in  card  reader 
HIT  carriage  return  TO  CONTINUE 

• • • • 

EQ  VECTOR 


0.7050400 

-1.530642 

•5.074719 

SDQ  VECTOR 


0.9295069 

-2.056014 

-4.163415 


0.9171902 

1.149099 


-1.134019 

-0.1270930 


0.4090013 

0.4600360 

3.039619 


0.3453030 

0.4490605 

3.452009 


0.2697552 

0.7630799 


0.3752734 

1.020032 


.1 

il 

:i 

II 

11 

il 


il 
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-1 

;) 


Hi 


EOXl  VeCTU 

• 

•••3342f9t 

•0.4214653 

-0.5621967 

2.055651 

1#794391 

1.556355 

-0.9019071E-01 

•0.6106611E-01 

•.1822653 

•0.2960060 

EOX2  VECTR 

0.3595534 

0.9046804 

1.606616 

•0.6004922 

•0.2889020 

1.781709 

1.730081 

1.429350 

0.3033041 

2.163050 

PUT  NE  s NQfNXt^NXatNED  <»100  CARDS  IN  READER 

HIT  CARRIAGE 

• • • • 

RETURN  TO  CONTINUE 

EPl  VECTOR 

(READ  ONLY  FIRST  NE 

ELEMENTS) 

0.5536903 

-0.7113819E-01 

0.3537094 

0.4063516 

-0.6456922 

-0.2816944E-01 

0.2975856 

-0.9553750 

-•.9923344E 

•02 

-0.3659356 

-0.2145738 

0.3801S36E-01 

0.2685915 

0.5087083 

0.1729497 

0.6669283 

•0.1574269E 

■01 

-O.4743943E-01 

-0.5218757 

-0.3906645 

1.214968 

1.131430 

0.0358501 

0.8915140 

0.7552553 

1.032534 

0.8250048 

0.9215746 

1.151375 

1.240495 

0.3746443 

•0.3362205 

-0.3947599 

O.9527770E-01 

0.3641596 

0.0000000 
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Tl-ISPSe  LOGGED 

ONI  10/20/77 

AT  01  Sl58, 

ENTER  COMNANO  OR  .HELP 

••0000000 

0.0000000 

0,0000000 

0,0000000 

•••000000 

0,0000000 

0.0000000 

0.0000000 

••0000000 

0.0000000 

0,0000000 

0.0000000 

•,0000000 

0.0000000 

0,0000000 

0.0000000 

0^0000000 

0.0000000 

0.0000000 

0.0000000 

0^0000000 

0.0000000 

0.0000000 

0.0000000 

•.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

•.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0,0OOO0O0 

0.0000000 

O.0OiO000 

O,000OOO0 

0.OOOO000 

■ 11  M M M 1 

0. 0000000 

•••000000 

CP2  VECTOR  (READ  ONLY  FIRST  RE  ELEMENTS) 


0.2909914 

0.2649158 

0.2753761E-02 

0.1716325 

0.4942876 

0.1797988E-01 

0.1329124 

O.8421580E-01 

1.034600 

0.0000000 

o,000?i00e 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0,0000000 

0,0000000 

0.0000000 

S.0000000 

0,0000000 

0.0000000 

0.0000000 


0,4664671E*01 

0.6172361E-03 

0.2175316 

0.1667232 

0.6070654 

0.6527032 

0.1438661 

0.1392904 

0.20223S9E-02 

0.0000000 

0,0000000 

0,0000000 

0.0000000 

0,0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 


0.6027169 

0.3140514E-01 

e.l97334lE-01 

0.2077613 

0.3139115 

0.3235601E-02 

0.2006909 

1.342357 

0.4069877 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

0.0000000 


END 

PfRF  LOCOFF 


0,1952799 

0.1271972 

-0.1285973 

0.1222426 

0.1934337 

-0,3656457 

0.1310275 

0.6230426 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

0,0000000 

0,0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 

0.0000000 

0,0000000 

0.0000000 

0,0000000 

0.0000000 

0.0000000 
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Move  to  the  CRT  coneole  and  proceed  aa  shown,  user  entries 
following  ....  and  terminating  with  a carriage  return: 

MODE  EXEC 

MODE  = EXEC 

PERF  EVNTL  (A  procedure  which  produces  an  event  list) 

USER  PROCEDURE  EVNTL  INITIATED 
SYSTEM  FUNCTION  DPSCAN  INITIATED 
(This  gives  a listing  of  the  event  data  base. ) 

MODE  PROM 

MODE  = PRGM 

PERF  ISPED 

USER  PROCEDURE  ISPED  INITIATED 
PAUSE  AT  1.  0:  #4  RESTART,  #5  CONTINUE,  #6  STOP 
(Immediately  hit  key  #6  to  STOP;  the  system  will  then  prompt:) 
AUTOLOOP  REQUESTED,  ENTER  NUMBER  OF  TIMES  TO  LOOP. 

4 

• • • • ^ 

PROGRAM  OK  FOR  PROCEDURE  ISPED 

(This  reflects  the  number  (N)  of  events  to  process;  here  N=4 
was  entered.  ) 

Place  N cards  indicating  sequence  numbers  (one  per  card)  of 
events  to  process  in  the  card  reader  and  push  RESET.  These 
sequence  numbers  are  obtained  from  the  event  data  base  listing. 

At  this  point  on  the  CRT: 

MODE  EXEC 

MODE  « EXEC 
PERF  ISPED 

(This  will  cause  the  procedure  to  execute  (N)  times:  i.  e. , (N) 
events  will  be  processed.  Each  event  requires  approximately 


L 


1 minute  45  seconds  to  process;  hence  total  execution  time 
in  seconds  is  105*N. ) 

When  ISPED  completes  executing  (i.  e. , when  the  message 
"AUTOLOOP  COMPLETE,  RETURNING  TO  SUPERVISOR"  is  received  on 
the  CRT),  the  MOCRM  user  function  may  be  . PERFORM'ed.  At  this  time, 
all  events  that  are  to  be  used  in  MDCRM  must  have  been  processed,  but  not 
necessarily  at  this  time.  They  may  be  processed  anytime  prior  to  the  ex- 
ecution of  MDCRM.  Proceed  as  follows: 

MODE  NORM 

MODE  = NORM 

PERF  MDCRM 

USER  FUNCTION  MDCRM  INITIATED. 

INPUT  NUMBER  OF  EARTHQUAKES  - NQ 
20 

(This  is  the  number  of  earthquakes  in  the  sample  population. ) 

INPUT  NUMBER  OF  EVENTS  IN  REGION  1 - NXl. 

....  10 

(This  is  the  number  of  presumed  explosions  from  region  1, ) 

INPUT  NUMBER  OF  EVENTS  IN  REGION  2 - NX2 
....  3 

(This  is  the  number  of  presumed  explosions  from  region  2.  ) 

INPUT  NUMBER  OF  EVENTS  TO  DISCRIMINATE  - NED 
....  2 

(This  number  represents  the  unknown  events. ) 

PLACE  NQ+NX1+NX2  CARDS  IN  CARD  READER 
HIT  CARRIAGE  RETURN  TO  CONTINUE 

t • • • 


fl 
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Place  input  cards  in  the  card  reader  and  push  RESET.  Each 
card  contains  one  event  number  from  the  event  data  base 
listing. 

(A  table  of  the  vectors  EQ,  SDQ,  EDXl,  and  EDX2  as  described 
in  Section  ni  is  displayed  on  the  CRT.  ) 

At  this  point  on  the  CRT: 

PUT  NE  = NQ+NXl+NX2+NED<=  100  CARDS  IN  READER 
HIT  CARRIAGE  RETURN  TO  CONTINUE 


• Take  the  cards  from  the  output  hopper  on  the  card  reader,  add 
the  cards  containing  the  event  numbers  of  the  events  to  be  dis- 
criminated, and  replace  them  in  the  input  hopper.  Push 
RESET. 

(A  table  of  the  projection  vectors,  EPl  and  EP2,  is  displayed 
on  the  CRT.  ) 

• When  the  X-Y  plot  of  the  projection  vectors  appears  on  the 
CRT  push  key  #4  to  obtain  a hardcopy. 

At  this  time  the  Calcomp  plot  tape  generate  by  ISPED  and 
MDCRM  may  be  plotted  using  the  DEC  console  conrunand: 

MCR>REQ  PLTPDP 

(Note:  the  generated  plot  tape  should  be  mounted  on  tape 
drive  MTl. ) If  desired,  ISPSE  may  be  terminated  via  the  . PERF  LOGOFF 
command. 

For  a detailed  description  and  interpretation  of  the  techniques 
for  analysis  and  the  discriminant  parameters  provided  on  the  hardcopy  output, 
refer  to  Technical  Report  No.  9 (Sax,  1975). 
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APPENDIX  B 
ISPSE  ERROR  SUMMARY 


This  appendix  presents  a sunrunary  of  error  messages,  their 
cause,  and  the  remedy.  The  errors  are  divided  into  five  sections  which  are: 

9 ISPSE  general  errors 

• ISPSE  command  language  errors 

a ISPL  syntax  errors 

a ISPL  semantic  errors 

a ISPL  execution  time  errors 

Unless  otherwise  noted,  all  errors  are  displayed  on  the  CRT  screen. 

A.  ISPSE  GENERAL  ERRORS 

These  errors  may  occur  any  time  the  user  is  entering  numbers. 
This  could  be  within  a processing  module,  as  an  edit  command,  or  as  part 
of  an  ISPL  statement. 

Error;  INTEGER  TOO  LARGE,  RE-ENTER 

Cause:  The  user  has  typed  an  integer  whose  value  is  greater 

than  131071  or  less  than  -131071. 

Remedy:  Correct  the  number. 

Error:  TOO  MANY  SIGNIFICANT  DIGITS,  RE-ENTER 

Cause:  More  than  seven  significant  digits  were  entered. 

Remedy:  Enter  only  seven  aignif leant  digits. 


M r 


r 


Error: 


Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 


TOO  LARGE  AN  EXPONENT,  RE-ENTER 

The  exponent  part  of  a real  number  is  larger  than  75. 

Correct  the  number. 

INVALID  NUMBER,  RE-ENTER 

A number  contains  a symbol  other  than  a digit,  sign,  decimal 
point,  or  letter  E,  or  the  number  is  improperly  constructed. 
Correct  the  nxunber. 

NO  ENTRY,  RE-ENTER. 

A carriage  return  was  keyed  in  without  any  other 
characters  being  typed. 

Enter  the  correct  number. 


:l 

:i 

.1 

.1 


B.  ISPSE  COMMAND  ERRORS 

The  errors  listed  in  this  sub- section  occur  when  the  user 
enters  ISPSE  commands. 

Error:  NON-EXISTENT  USER  PROCEDURE,  RE-ENTER. 

Cause:  The  user  has  attempted  to  EDIT  a non-existent  procedure, 

DELETE  or  LIST  a non-existent  procedure  or  user 
function. 

Remedy:  Correct  the  name  of  the  procedure  or  user  function. 

Error:  NON-EXISTENT  PROCESSING  MODULE  OR  USER  PRO- 

CEDURE, RE-ENTER. 

Cause:  The  user  has  tried  to  . PERFORM  a non-existent  system 

function,  user  function,  or  procedure. 

Remedy:  Correct  the  specified  name. 

Error:  PROCEDURE  CREATION  LIMIT  EXCEEDED,  COMMAND 

IGNORED 


Cause: 

Remedy: 


Error: 


Cause: 


Remedy: 

Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 


Error: 

Cause: 

Remedy: 


The  user  has  attempted  to  create  more  than  36  procedures. 
Delete  or  modify  an  existing  procedure. 

MNEMONIC  ALREADY  IN  USE  BY  SYSTEM  OR  USER, 
RE-ENTER 

The  user  has  tried  to  create  a procedure  or  define  a 
user  function  with  the  same  name  as  an  existing  procedure, 
user  function,  or  system  function. 

Choose  another  name  for  the  procedure  or  user  fvmction. 

USER  FUNCTION  CREATION  LIMIT  EXCEEDED, 
COMMAND  IGNORED 

The  user  has  attempted  to  define  more  than  36  user 
functions. 

Delete  or  modify  an  existing  user  function. 

USER  PROCEDURE  IS  NOT  PROGRAMMED,  CHANGE 
MODE  OR  PROGRAM 

The  user  has  tried  to  execute  a procedure  in  EXEC  mode 
that  is  not  programmed. 

Change  mode  to  PRGM  and  program  the  procedure  or 
execute  the  procedure  in  NORM  mode. 

USER  FUNCTION  ISN'T  COMPILED  SUCCESSFULLY- 
COMMAND  IGNORED. 

The  user  has  attempted  to  PERFORM  a non-compiled 
user  function  individually  or  as  part  of  a procedure. 

. COMPILE  the  user  function  and  exit  via  the  #S  command. 


Error:  INCORRECT  MODE  - RESET  MODE  TO  NORM 

Cause:  The  user  has  entered  a command  other  than  . PERFORM 

procedure  name  or  . MODE  in  PRGM  or  EXEC  mode. 
Remedy:  Change  the  mode  to  NORM. 
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Error:  BAD  COMMAND.  RE-ENTER 

Cause:  The  user  has  entered  an  unrecognizable  command  or 

used  . MODE  or  . HELP  with  a bad  keyword. 

Remedy:  Correct  the  command. 

Error:  NO  ENTRY,  RE-ENTER 

Cause:  The  user  has  keyed  in  a carriage  return  without  typing 

a command. 

Remedy:  Enter  a valid  command. 

Error;  MAXIMUM  PROCEDURE  LENGTH  ATTAINED,  . CREATE 

EXITS 

Cause:  The  user  has  tri'^d  to  enter  more  than  25  statements  in 

a procedure. 

Remedy:  Subdivide  the  procedure  into  two  procedures. 


ISPL  SYNTAX  ERRORS 

The  errors  listed  in  this  subsection  occur  as  the  user  enters 


ISPL  statements. 


Error: 


Cause: 

Remedy: 

Error: 

Cause: 


Remedy: 

Error: 

Cause: 


INVAUD  LABEL 

An  invalid  Statement  label > was  entered,  e.  g. , $12A. 
Correct  the  <statement  label>. 

INVALID  FUNCTION 

An  invalid  <mathematlcal  function>  was  entered,  i.  e. , 
not  «cSIN,  JcCOS,  &TAN,  fcATN,  fcEXP,  &LNN,  8cLOG, 
bSQR,  tcABS,  or,  IcPIM. 

Correct  the  <mathematical  function>  name. 

INVALID  IDENTIFIER  OR  KEYWORD 

An  <identifier>  contains  a character  other  than  a letter 

or  digit. 


Remedy; 


Correct  the  <identifier>. 


Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 

Error; 

Cause: 

Remedy: 

Error; 

Cause: 

Error; 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 


INVALID  CONDITIONAL  STATEMENT 
A <conditional  statement>  is  syntactically  invalid. 

Correct  the  statement. 

INVALID  ASSIGNMENT  STATEMENT 
An  <assignment  statement>  is  in  error. 

Correct  the  statement. 

ILLEGAL  ARITHMETIC  EXPRESSION  - SYNTAX  ERROR 
An  <arithmetic  expression>  in  an  <assignment  statement> 
or  <conditional  statement > is  invalid. 

Correct  the  statement. 

SYNTAX  ERROR  IN  VARIABLE  LIST 

The  <variable  list>  in  an  <1/0  statement>  or  <numerical 
operator^  is  invalid  or  the  <declaration  list>  in  a <declar- 
ation  statement>  is  incorrect. 

TOO  MANY  CONTINUATION  LINES,  MAX  CMNT=6, 

MAX  CODE=4 

More  than  6 comment  or  4 statement  lines  are  entered 
as  part  of  one  ISPL  statement. 

Construct  two  or  more  statements  from  the  one  large 
statement. 

ILLEGAL  EDIT  COMMAND  - NOT  #P,  #D,  #1,  #N,  #Q, 

#S,  #B.  or  #W 

The  first  character  entered  is  a I sign  but  it  is  not 
an  edit  conunand. 

Re-enter  the  correct  command. 
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Error:  (displayed  on  the  operator's  console)  LEXICL  TABLE 

SPACE  EXHAUSTED,  SYSTEM  ERROR=125 
Cause:  More  than  100  uniform  symbols  have  been  entered  as 

part  of  one  ISPL  statement. 

Remedy:  Divide  the  statement  into  two  or  more  smaller  statements. 


Error:  UNRECOGNIZABLE  STATEMENT  - SYNTAX  ERROR 

Cause:  An  ISPL  statement  is  syntactically  incorrect  but  the  error 

does  not  fit  any  of  the  above  error  messages. 

Remedy:  Correct  the  statement. 


D.  ISPL  SEMANTIC  ERRORS 


These  errors  appear  during  semantic  error  analysis  of  a 
user  function,  i.  e. , #S.  The  <statement  number>  refers  to  the  absolute 
statement  rather  than  the  executable  statement  as  in  execution  time  errors. 

Error:  <statement  number>  VARIABLE  <identiiier>  NOT  A 

SCALAR  OR  NOT  INITIAUZED 


Cause:  The  first  executable  statement  in  a user  function 

contains  a variable  on  the  right  hand  side  of  an  equal 
sign  which  is  not  a scalar  or  which  hasn't  been  initialized. 

Remedy:  Correct  the  statement  or  insert  an  <assignment  state- 

ment which  initializes  the  scalar. 


Error:  <statement  number>  VARIABLE  <identifier>  NOT  A 

VECTOR 

Cause:  A statement  contains  a subscripted  <identlfier>  which 

is  not  declared  as  a vector  or  a statement  should  have 
a vector  name  and  it  is  a scalar  or  label 
Remedy:  Correct  the  statement  or  declare  the  variable  to  be  a 

vector. 
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Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 


<statement  number>  VARIABLE  <identlfier>  PREVIOUSLY 
DECLARED.  ALLOCATION  IGNORED 

A label  or  vector  name  appears  in  tuio  or  more  declaration 
statements. 

Delete  one  of  the  declarations  of  the  variable. 

<statement  number>  DECLARATION  ERROR,  ALLO- 
CATION MUST  BE  > 0. 

A vector  or  label  was  declared  to  be  length  0. 

Correct  the  statement. 

<statement  number>  INSUFFICIENT  MEMORY  TO  A 
ALLOCATE  <identifier> 

The  total  vector  lengths  and  labels  in  declaration 
statements  require  more  than  1957  memory  elements. 

Correct  the  declaration  statements. 

<statement  numbez>  DUPLICATE  STATEMENT  LABEL 
<statement  label>. 

A <statement  label>  appears  in  more  than  one 
<label  statement>. 

Change  one  of  the  <statement  labels>  or  delete  one 
<label  statement>. 

<statement  number>  VARIABLE  <identifier>  DIFFERS 
IN  MODE  FROM  EXPRESSION 

The  left  hand  side  of  an  <assignment  statement>  is  not 
the  same  type  as  the  right  hand  side.  A vector  or  scalar 
is  set  equal  to  a <label  constant>  or  a label  or  a non- 
subscripted  vector  is  set  eqiial  to  an  <arithmetic  expression>. 
Correct  the  variable  tyi>e  or  ^e  statement. 


Error:  <8tatement  number> VARIABLE  <identi£ier>  NOT  A 

SCALAR 

Cause:  A statement  which  expects  a scalar  variable  contains 

a vector  or  label  variable  name. 

Remedy:  Correct  the  variable  type  or  the  statement. 

Error:  <statement  number>VARIABLE<identifier>  NOT  A 5 

CHARACTER  FILENAME  LABEL 

Cause:  The  filename  parameter  in  a DREAD  or  DWRIT  state- 

ment is  not  a 5 character  label. 

Remedy:  Correct  the  variable  type  or  the  <1/0  8tatement>. 

Error:  <8tatement  numbei>  MIS- PLACED  DECLARATION 

STATEMENT 

Cause:  A declaration  statement  appears  after  the  first  ex- 

ecutable statement. 

Remedy:  Place  the  declaration  statement  at  the  beginning  of  the 

user  function. 

Error:  <8tatement  numbei>NON- EXISTENT  STATEMENT 

LABEL <statement  label  > 

Cause:  A <branch  statement>  refers  to  a non-existent  <8tate- 

ment  label>. 

Remedy:  Correct  the  <branch  statement>  or  add  a <label 

statement>. 

Error:  (displayed  on  the  operator's  console)  LEXICL  TABLE 

SPACE  EXHAUSTED.  SYSTEM  ERROR  = <integer> 

Cause:  System  error =122,  more  than  25  <statement  label>'8 

have  been  used. 

System  error=123,  more  than  124  <number>'B  have  been 
used. 
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Syatexn  error3l24,  more  then  90  <identifier>'s  have  been 
used. 

System  errorslZb,  more  than  920  total  characters  have 
been  used  in  <label>  constants. 

Remedy:  Decrease  the  number  of  ^statement  labels>,  constants, 

or  variables. 

Error:  UNSUCCESSFUL  COMPILATION  FOR  <ueer  name> 

RETURNING  TO  EDITOR 

Cause:  A semantic  error  was  discovered  in  the  user  fvinction. 

Remedy:  Correct  the  error  and  recompile  or  save  without 

compiling,  #Q. 

Message:  NO  ERRORS  FLAGGED  IN  <ueer  name>,  SUCCESSFUL 

COMPILATION 

Cause:  The  user  function  is  successfully  compiled,  the  execu- 

table  code  file  is  saved.  The  user  function  can  then 
be  . PERFORM 'ed. 


E.  ISPL  EXECUTION  TIME  ERRORS 

The  errors  listed  in  this  subsection  may  occur  during  the 
execution  of  user  functions,  whether  performed  individually  or  as  a part  of 
a procedure.  <statement  number>  refers  to  the  executable  statement  number 
where  the  error  occurred,  excluding  declaration  statements.  Therefore, 
it  is  generally  less  than  the  absolute  statement  number  displayed  when  a 
user  function  is  listed. 


Error: 


(displayed  on  the  operator's  console. ) SYSTEM  ERROR 
- PROGRAM  LOAD  SPACE  EXHAUSTED.  REQUESTED 
USER  FUNCTION  WILL  EXECUTE  THRU  STATEMENT 
<statement  number> 


Cause: 

Remedy: 


Error: 


Cause: 

Remedy: 

Error: 

Cause: 

Cause: 

Remedy: 

Error: 


Cause: 

Remedy: 

Error: 


The  user  functioi:  is  too  large  to  load  into  the  allocated 
memory. 

Divide  the  user  function  into  two  smaller  ones.  Commun- 
ication between  the  two  new  user  functions  may  be  accom- 
plished via  DREAD  and  DWRIT  statements. 

FATAL  ERROR 

SUBSCRIPT  EXCEEDS  VECTOR  LENGTH  IN  ASIGMNT, 
EXECUTABLE  STMN#  <statement  number> 

Vector  index  on  left  hand  side  of  an  assignment  statement 
is  less  than  one  or  greater  than  the  vector  length. 

Increase  vector  allocation  in  declaration  statement  or 
correct  program  logic. 

FATAL  ERROR 

SUBSCRIPT  EXCEEDS  VECTOR  LENGTH  IN  ARITH.  EXPR, 
EXECUTABLE  STMN#  <statement  number > 

Vector  index  on  right  hand  side  of  an  assignment  statement 
is  less  than  one  or  greater  than  the  vector  length. 

Increase  the  vector  allocation  in  declaration  statement  or 
correct  program  logic. 

FATAL  ERROR 

DIVISION  BY  ZERO  ATTEMPTED  IN  ARITH.  EXPR. , 
EXECUTABLE  STMN#  <statement  number> 

The  second  argument  to  the  binary  operator,  /,  is  zero. 
Correct  program  logic. 

FATAL  ERROR 

ARGUMENT  NEGATIVE  FOR  MATH  FUNCTION,  EXECU- 
TABLE STMN#  ^statement  number> 
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The  argument  to  the  math  function,  ScSQR,  is 
negative. 

Correct  program  logic. 


Remedy 


FATAL  ERROR 

ARGUMENT  NEC  OR  ZERO  FOR  MATH  FUNCTION, 
EXECUTABLE  STMN#  < statement  number> 

The  argument  to  one  of  the  math  functions,  &LNN  or 
8c LOG,  is  out  of  range;  the  first  operand  to  the  ex- 
ponentiation operator.  A,  is  not  positive  and  the  second 
operand  is  not  an  integer;  or  the  first  operand  is  zero 
and  the  second  is  not  a positive  integer. 

Correct  program  logic. 


Remedy 


The  following  list  of  errors  may  occur  during  the  use  of 
<1/0  statement>'s  or  <numerical  operator>'s.  They  are  categorized  under 
the  name  of  the  particular  statement  or  operator  where  they  occur. 


GET  and  PUT: 

Error:  BAD  ARGUMENT  FOR  PUT  OR  GET,  NO  DISK  I/C 

PERFORMED 

Cause:  The  specified  record  number  is  not  in  the  range  (1-16); 

the  length  of  the  specified  vector  is  less  than  548‘elements 
or  the  length  of  the  specified  label  is  less  than  55  char- 
acters. 

Remedy:  Increase  the  vector  or  label  allocation  in  declaration 

statement  or  correct  program  logic. 


DREAD  and  DWRITt 


NO  NAME  IN  LABEL  FOR  DREAD  OR  DWRIT,  NO  I/O 
PERFORMED 


IMUMMllilCdWi 


Cause:  The  label  argument  for  DREAD  or  DWRIT  is  not 

initialized  via  an  assignment  statement. 

Remedy:  Initialize  the  5 character  label  variable  to  a 

<label  constant  > . 

Error:  BAD  RECORD  # FOR  DREAD  OR  DWRIT,  NO  I/O 

PERFORMED 

Cause:  The  record  number  argument  input  to  DREAD  or 

DWRIT  is  not  in  the  range  (1-100). 

Remedy:  Correct  program  logic. 

PLOT,  PLOTP,  and  PLOTX 

<name>  in  the  following  errors  is  replaced  by  PLOT,  PLOTP, 
or  PLOTX  depending  on  the  particular  operator  where  the  error  occurred. 

Error:  INCORRECT  NUMBER  OF  ARGUMENTS  INPUT  TO 


Cause: 


<iame> 

Too  few  or  too  many  arguments  are  in  the  variable 


Remedy:  Correct  the  variable  list. 

Error:  ARGUMENTS  OF  <name>  ARE  THE  WRONG  TYPE 

Cause:  The  arguments  of  the  operator  are  not  specified  in  the 

correct  order  or  a vector,  scalar,  or  label  variable 
is  specified  as  a different  type. 

Remedy:  Correct  the  variable  list. 


Error: 

Cause: 


Remedy; 


N=<integer>,  TRUNCATED  TO  512  POINTS  FOR  <name> 
More  than  512  points  were  requested  to  be  plotted. 
<integer>  is  the  current  value  specified. 

Correct  the  value  of  the  argument. 


[] 

tJ 
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Error: 


Cause: 


VECTOR  LENGTHS  FOR  <name>  ARE  TOO  SHORT, 
SET  TO  <integer> 

One  or  more  of  the  vectors  is  shorter  than  the  number 


of  points  requested  to  be  plotted.  <integer>  is  the 
number  of  points  actually  plotted. 

Remedy:  Increase  the  allocation  for  the  vector,  or  change  the 

number  of  points  to  be  plotted. 

DSTAT,  QSTAT,  and  XSTAT 

<nam^i8  replaced  by  DSTAT,  QSTAT,  or  XSTAT,  according 
to  which  operator  caused  the  error. 

Error:  SYSTEM  ERROR  <name^:  EVENT  SEQ  # NOT  IN 

RANGE  (1-100) 

Cause:  An  event  sequence  number  on  the  card  input  is  not 

valid. 

Remedy:  Correct  the  card  in  error  and  re-execute  the  user 

function. 


Error: 


Cause:  Too  few  or  too  many  arguments  are  specified  in  the 

particular  statement. 

Remedy:  Correct  the  variable  list. 

Error:  ARGUMENTS  OF  <name>  ARE  THE  WRONG  TYPE 

Cause:  A vector  or  scalar  argument  was  specified  as  a 

different  type. 

Remedy:  Correct  the  variable  list. 


INCORRECT  NUMBER  OF  ARGUMENTS  INPUT  TO 
<name> 


Error: 


VECTORS  INPUT  TO  <name>  ARE  TOO  SHORT 
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Cause: 


Remedy: 

Error: 


Cause: 


Remedy: 

Error: 

Cause: 

RemedyJ 

Error: 

Cause: 

Remedy: 

Error: 

Cause: 

Remedy: 


The  vector  lengths  input  to  the  operator  are  too  short 
to  perform  the  function. 

Increase  the  allocation  for  the  vector. 

NUMBER  OF  DISCRIMINANTS  IS  ZERO  OR  GREATER 
THAN  125  IN  <name> 

The  user  has  requested  an  invalid  number  of  discriminant 
values  for  this  operator.  At  this  time  only  10  values 
are  calculated  by  SPEED. 

Correct  the  specified  values. 

NUMBER  OF  EVENTS  IS  ZERO  OR  GREATER  THAN 
100  IN  DSTAT. 

Invalid  number  of  events  specified  for  DSTAT. 

Correct  the  specified  value. 

NUMBER  OF  EVENTS  INPUT  TO  QSTAT  IS  LESS  THAN 
2 

Invalid  ntimber  of  events  specified.  At  least  two  are 
required  to  calculate  the  standard  deviation  vector. 

Correct  the  specified  value. 

NUMBER  OF  PRESUMED  EXPLOSIONS  IS  ZERO  IN  XSTAT 
Invalid  number  of  presumed  explosions  specified. 

Correct  the  specified  value. 
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